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PREFACE 


MANUAL  OBJECTIVES 

This  manual  describes  the  elements  cI  PDP-11  FORTRAN  and  is  designed 
as  a  reference,  rather  than  tutorial,  document. 

This  docurr,3nt  serves  as  the  FORTRAN  language  reference  manual  for 
several  operating  systems  '^.lat  run  on  the  PDP-11  family  of  computers. 
Therefore,  no  information  specific  to  an  operating  system  is  presented 
here.  For  that  information,  refer  to  the  user's  guide  for  each 
system. 

Two  levels  of  FORTRAN  are  described:  FORTRAN  IV  ana  FORTRAN  IV-PLUS. 
FORTRAN  IV-PLUS  is  a  compatible  superset  of  FORTRAN  IV 


INTENDED  AUDIENCE 

Because  this  is   a   reference   document,   readers   who  have   a   basic 
understanding  of  FORTRAN  will  derive  maximum  benefit. 


m 


STRUCTURE  OF  THIS  DOCUMENT 

This  manual  contains  nine  chapters  and  two  appendixes. 

•  Chapter  1  consists  of  general  information  concernino  FORTRAN 
and  introduces  basic  facts  needed  for  writing  FORTRAN 
programs. 

•  Chapter  2  describes  the  components  of  FORTRAN  statements,  such 
as  symbolic  names,  constants,  and  variables. 

•  Chapter  3  describes  assignment  statements,  which  define  values 
used  in  the  program. 

•  Chapter  4  deals  with  control  statements,  which  transfer 
control  from  one  point  in  the  program  to  another. 

•  '"hapter  5  describes  specification  statements,  which  define  the 
characteristics  of  symbols  used  in  the  program,  such  as  data 
type  and  array  dimensions. 

•  Chapter  6  discusses  subprograms,  both  user-written  and  those 
supplied  with  PDP-11  FORTRAN. 


•  Chapter  7  covers  FOMTRAN  input/output. 

•  Chapter  8  describes  the  FORMAT  statements  used  in   conjunction 
with  formatted  I/O  statements. 

•  Chapter  9  contains  information  on   auxiliary   i/o   stattments, 
such  as  0P2N,  CLOSE,  and  DEFINE  FTLE. 

•  Appendix  A  summarizes  the  character  sets  supported   by  PDP-11 
FORTRAN . 

•  Appendix  B  summarizes  the  language  elements  of  PDP-11  FORTRAN. 


Ix 


ASSOCIATED   DOCUMENTS 

The    following   documents   are    of    interest    to   PDP-11    FORTRAN    programmers; 

•  RT-11/RSTS/E    FORTRAN    IV    User's   Guide 

•  lAS/RSX    FORTRAN    IV    User's   Guide 

•  FORTRAN    IV-PLUS    User's   Guide 


COHVENTIONS  USED  IN  THIS  DOCUMENT 

The  following  conventions  are  used  in  this  manual: 

•  Uppercase  words  and  letters  used  in  examples  indicate  that  you 
should  type  the  words  and  letters  as  shown. 

•  Lowercase  words  and  letters  used  in  examples  indicate  that  you 
are  to  substitute  a  word  or  value  of  your  choice. 

•  Brackets  ([])  enclose  optional  elements. 

•  Braces  (||)  enclose  lists  from  which   one   ele..ient   is   to   be 
chosen. 

•  Ellipses  (...)  indicate  that   the  preceding   item(s)   can   be 
repeated  one  or  more  times. 

In  addition,   the   following   characters   denote   special   nonprinting 
characters: 


Tab  character    GIED 

Space  character  A 

Lar.guage  elements  common  to  both  FORTRAN  IV  and  FORTRAN  IV-PLUS  are 
presented  without  background  shading.  Language  elements  available 
only  in  FORTRAN  IV-PLUS  are  printed  against  a  shaded  background. 


CHAPTER  1 
INTRODUCTION  TO  PDP-11  FORTRAN 


1.1   LANGUAGE  OVBRVIEW 

The  PDP-11  FORTRAN  language  is  based  on  American  National  Standard 
(ANS)  FORTRAN  X3. 9-1966  but  includes  the  following  enhancements  to  ANS 
FORTRAN : 

•  You  can  use  any  arithmetic  expression  as  an  array  subscript. 
If  the  expression  is  not  an  integer  type,  it  is  converted  to 
integer  type. 

•  Mixed-mode  expressions  can  contain  elements  of  any  data  type. 

•  The  following  data  types  have  been  added: 

L.0GICAL*1 
LOGICAL* 2  S 

•  The  IMPLICIT  statement  redefines  the  implied  data  type  of 
symbolic  names. 

•  The  following  input/output  (I/O)  statements  have  been  added: 

I 


ACCEPT 

TYPE 

PRINT 

READ  (u'r) 
WRITE  (u'r) 
FIND   Cu'r) 

READ   (u'r,fmt) 
WRITE  (u'r^fmt) 

OPEN 
CLOSE 
DEFINE  FILE 

ENCODE 
DECODE 

READ  (u,f,key) 
READ  (u,key) 

REWRITE 

DELETE 

UNLOCK 


( 


Device-oriented  I/O 


Unformatted  direct-access  I/O 


Formatted  direct-access  I/O 

File  control  and  attribute 
speci  f icat ion 

Formatted  data  conversion 
in  memory 

Kay«cl  I/O 


Record  control 
and  update 
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The  specifications  END=s  and/ot  ERR=s  can  be  included  in  READ 
or  WRITE  statements  in  order  to  transfer  control  to  the 
statement  specified  by  s  when  an  end-of-file  or  error 
condition  occurs. 


•  Alphanumeric  literals  (strings  of  characters  bounded  by 
apostroijiiea)  can  be  used  in  place  of  Hollerith  constants. 

•  List-directed  I/O  can  be  used  to  perform  formatted  I/O  without 
a  format  specification. 

•  Constants  and  expressions  are  permitted  in  the  I/O  lists  of 
WRITE,  REWRITE,  TYPE,  and  PRINT  statements. 

•  The  DO  statement  increment  parameter  can  have  a  negative 
value. 

•  For  readability,  you  can  optionally  use  a  comma  following  the 
label  in  a  DO  statement. 

•  A  PROGRAM  statement  can  be  used  in  a  main  program. 

•  You  can  include  an  explanatory  comment  on  the  same  line  as  any 
FORTRAN  statement.  These  comments  begin  with  an  exclamation 
point  (I). 

•  You  can  include  debugging  statements  in  a  program  by  placing 
the  letter  D  in  column  1.  These  statements  are  compiled  only 
when  you  specify  a  compiler  command  qualifier;  otherwise, 
they  are  treated  as  comments. 

•  The  statement  label  list  in  an  assigned  GO  TO  statement  is 
optional. 

•  You  can  use  any  arithmetic  expression  as  the  control  parameter 
in  the  computed  GO  TO  statement. 

•  Virtual  arrays  provide  large  data  areas  outside  of  normal 
program  address  space. 

•  You  can  include  the  specification  ERR-s  in  any  OPEN,  CLOSE, 
PINO,  DELETE,  UNLOCK,  BACKSPACE,  REWIND,  or  ENOFILE  Statement 
to  transfer  control  to  the  statement  specified  by  s  when  an 
error  condition  occurs. 

•  The  INCLUDE  statement  incorporates  FORTRAN  statements  from  a 
separate  file  into  a  FORTRAN  program  during  compilation. 

•  Lower  bounds  for  array  dimensions  can  be  specified  in  array 
declarators. 

•  You  can  use  EN'ii<Y  statements  in  SUBROUTINE  and  FUNCTION 
subprograms  to  define  multiple  entry  points. 

•  You  can  use  PARAMETER  statements  to  assign  symbolic  names  to 
constant  values. 

«  For  many  FORTRAN-supplied  functions  ■—  termed  generic 
functions  ■  the  data  type  need  not  be  specified,  but  the 
correct   li  rary   routine  will   be   selected   automatically 

;   according  to  the  data  type  of  the  argument. 
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•  A  DO  Statement  control   variable   can 
precision  variable. 


be 


real   or   double 


You  can  use  any  arithmetic  expression  as   the   initial   value, 
increment,  or  final  value  in  the  DO  statement. 

The  INTEGER*4  data  type  provides  a  sign  bit  and  31  data  bits. 


1.2   ELEMENTS  OF  FORTRAN  PROGRAMS 

FORTRAN  programs  consist  of  FORTRAN  statements  and  optional  comments. 
The  statements  are  organized  into  program  units.  A  program  unit  is  a 
sequence  of  statements  that  defines  a  computing  procedure  and  is 
terminated  by  an  END  statement.  A  program  unit  can  be  either  a  main 
program  or  a  subprogram.  An  executable  program  consists  of  one  main 
program  and  one  or  more  optional  subprograms. 


1.2.1   Statements 


Statements  are 
nonexecutable. 


grouped   into 
Executable 


two  general  classes:  executable  and 
statements  specify  the  actions  of  a 
program.  Nonexecutable  statements  describe  data  arrangement  and 
characteristics,  and  provide  editing  and  data-conversion  information. 


Statements  are  divided  into  physical  sections  called  lines.  A  line  is 
a  string  of  up  to  80  characters.  If  a  statement  is  too  long  to  fit  on 
one  line,  you  can  continue  it  on  one  or  more  additional  lines,  called 
continuation  lines.  A  continuation  line  is  identified  by  a 
continuation  character  in  the  sixth  column  of  that  line.  (For  further 
information  on  continuation  characters,  see  Section  1.3.4.) 


You  can  identify  a  statement  with  a  label  so  that  other  statements  can 
transfer  control  to  it  or  obtain  the  information  it  contains.  A 
statement  label  is  an  integer  number  placed  in  the  first  five  columns 
of  a  statement's  initial  line. 


1.2.2      Coronients 

Comments  do  not  affect  program  processing  in  any  way.  They  are  merely 
a  documentation  aid  to  the  programmer.  You  can  use  them  freely  to 
describe  the  actions  of  the  program,  to  identify  program  sections  and 
processes,  and  to  provide  greater  ease  in  reading  the  source  program 
listing.  The  letter  C  in  the  first  column  of  a  source  line  identifies 
that  line  as  a  comment.  In  addition,  if  you  place  an  exclamation 
point  (!)  in  column  1  or  in  the  statement  portion  of  a  source  line, 
the  rest  of  that  line  is  treated  as  a  comment. 

Any  printable  character  can  appear  in  a  comment. 
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1.2.3   FORTRAN  Character  Set 

The  FORTRAN 


laracter  set  consists  of 


1.   All  uppercase  and  lowercase  letters  (A  through  Z,      a   through 


z^ 


The  numerals  0  through  9 


3.   The  special  characters  listed  below: 


Character 


A  or  (  TVB ) 


/ 


Name 


Space  or  tab 
Equal  sign 
Plus  sign 


Minus  sign 


Asterisk 


Slash 


Left  parenthesis 
Right  parenthesis 


Comma 


Period 


Apostrophe 
Quotation  mark 
Dollar  sign 
Exclamation  point 


Colon 


Left  angle  bracket 
Right  angle  bracket 


Other  printable  ASCII  characters  can  appear 


in   a   FORTRAN   statement 


only   as   part 


£   a   Hollerith  constant  or  alphanu 


meric  literal  (see 


Appen 


dix  A  for  a  list  of  printable  characters; 


Except  in  Hollerith  constants  and  alphanumeric  literals,  the   compiler 


ma 


kes  no  distinction  between  uppercase  and  lowercase  letters 


1.3   FORMATTING  A  FORTRAN  LINE 

Each  FORTRAN  line  has  the  following  four  fields: 

•  Statement    label    field 

•  Continuation    indicator    field 
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•  Statement  field 

•  Sequence  number  field 

You  can  format  a  FORTRAN  line  in  two  ways:  1)  by  typing  one  character 
per  column  (character-per-column)  or  2)  by  using  the  tab  character 
(tab-character)  to  get  from  field  to  field.  You  can  use 
charac*  -"r-per-column  formatting  when  punching  cards,  writing  on  a 
coding  form,  or  typing  on  a  terminal  keyboard.  However,  you  can  use 
tab-character  formatting,  in  addition  to  character-per-column 
formatting,  only  when  you  are  typing  at  a  terminal  keyboard. 


1.3.1   Character-per-Column  B'ormatting 

As  shown  in  Figure  1-1,  a  FORTRAN  line   is   divided   into   fields  for 

statement    labels,    continuation   indicators,   statement   text,  and 

sequence  numbers.   Sections  1.3.3  through  1.3.6  describe   the   use  of 
each  field. 

Each  column  represents  a  single  character.   The  cc  .  ins  making  up  each 
field  follow. 


FORTRAN 


i 

liJBHAN   'iIAlfMfNI 

D(  ••'  ■•    L  ••■0»« 

*.  .  .  . 

DQ    1 0      1     1  1         5  0 ,     2                                     

M^«^^t•^M•w•u*■*l«)•••1M•'•••*  ">r  n 

nuy^'t"  »•»*•< 

J p^  ,50^ 4.  *  ,  *  .. 

J     1                                                                

;•;-•. 

A,J                                        , 

5 

Lij                                                                                                              .                        

»      A      I                                                                                                                

IF      i  »  ,       i  ,      ID,      i                                                          

If      I  J      L,!     S  qs  T      i  H  OA I      i  '    1            qc,'    I O    4                    .,.,,,,. 

1  0 

T  y  Pt      1 05  ,     1                                                                               

:  ONT  I  r<J  f                                                              

f  o«/^A  T       14,      !  '.    p  a  :  ^  t                                         

t  f^D                                                     ,    ,    ,    ,                           ,       ,                             ,                                     -       .    ,                      -  " 

.... 

.... 

«    f  •  9  ••  >     <l>t  *    ttfr  •|>«ni>  j)niiMI*lMII*lil'  tll)l«  ltl»l'aii«0«  *)«l««ata*«'«|«t1«  1 

MIH1IMtM»«**0*tl*t««b|M*^M«rt ''  ' 

'  1  •  * 

'"•'"•"■"•" 

OiaiTAl.     aQUOMaNT    COn»0«ATlOM      .     MATNAKO      M  A»B  AC  M  U  •  a  T  T  • 


Figure  1-1   FORTRAN  Coding  Form 


m 
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Field 

Statement  label 
Continuation  indicator 
Statement 
Sequence  number 


Column (s) 

1  through  5 

6 

7  through  72 

73  through  80 


To  get  from  one  field  to  another,  type  each  space  individually.  For 
example,  in  Figure  1-1,  to  enter  the  first  line,  type  C,  press  the 
space  bar  five  times,  and  begin  typing  the  comment. 


1.3.2  Tab-Character  Formatting 

You  can  press  the  tab  character  to  move  to  the  continuation  indicator 
field  or  the  statement  field.  You  cannot  move  to  the  sequence  number 
field,  however,  by  pressing  the  tab.  Figure  1-2  compares  keystrokes 
in  lines  using  tab-character  formatting  and  in  those  using 
character-per-column  formatting. 


Format  Using  TAB  Character 


Characterper-Column  Format 


cQab)  first  value 

lOQ^  I  =  J  •  b-K 
dAB)  1  L'M 
flU)  IVAL  =  1*2 


1 

2     J      4      '> 

G 

/     H    y    10 

11     12    13    14    15 

16    W   18    19  20 

c 

f- 

1 

R 

S 

T 

V 

A 

L 

U 

E 

1 

0 

1 

_ 

J 

• 

5 

• 

K 

♦ 

1 

) 

• 

M 

1 

V 

A 

L 

= 

1 

• 

2 

— 



Figure  1-2   Line  Formatting  Example 


The  statemeiit  label  field  consists  of  the  characters  that  you  type 
before  the  first  tab  characv.er.  The  statement  label  field  cannot  have 
more  than  five  characters. 

After  you  type  the  first  tab  character,  you  can  type  either  the 
continuation  '.ndlcator  field  or  the  statement  field. 

To  enter  the  continuation  indicator  field,  type  any  digit.  The 
statement  field  then  consists  of  all  the  characters  after  the  digit  to 
the  end  of  the  line. 

To  enter  tho  statement  field  without  a  cont i.juation  indicator  field, 
type  the  statement  immediately  after  the  first  tab.  Note  that  no 
FORTRAN  statement  starts  with  a  digit. 
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Many  text  editors  and  terminals  advance  the  terminal  print  carriage  to 
a  predefined  print  position  when  you  type  the  TAB  key.  However,  this 
action  is  not  related  to  the  FORTRAN  compiler's  interpretation  of  the 
tab  character  described  above. 

You  can  use  the  tab  character  to  improve  the  legibility  of  a  FORTRAN 
statement.  For  compilation,  spaces  are  ignored,  except  those  within  a 
Hollerith  constant  or  alphanumeric  literal.  For  legibility,  spaces 
are  piinted  in  the  source  listing.  Tabs  also  are  ignored  for 
compilation  purposes  in  a  statement  field.  In  the  source  listing,  the 
tab  causes  the  character  that  follows  to  be  printed  at  the  next  tab 
stop  (located  at  columns  9,  17,  25,  33,  etc.). 


1.3.3   Statement  Label  Field 

A  statement  label  or  statement  number  consists  of  one  to  five  decimal 
digits  in  the  statement  label  field  of  a  statement's  initial  line. 
Spaces  and  leading  Os  are  ignored.  An  all-zero  statement  label  is 
invalid. 


Any  statement  referenced  by  another  statement  must  have  a   label, 
two  statem^'nts  within  a  program  unit  can  have  the  same  label. 


No 


You  can  use  two  special  indicators  in  the  first  column  of  the  label 
field:  the  comment  indicator  and  the  debugging  statement  indicator. 
These  indicators  are  described  in  Sections  1.3.3.1  and  1.3.3.2  below. 

The  statement  label  field  of  a  continuation  line  must  be  blank. 


1.3.3.1  Conment  Indicator  -  The  letter  C  in  column  1  indicates  that 
the  line  is  a  comment.  The  compiler  prints  that  line  in  the  source 
program  listing  and  then  ignores  the  line. 


1.3.3.2  Debugging  Statement  Indicator  -  The  letter  D  in  column  1 
designates  a  debugging  statement.  The  first  line  of  the  debuggii.vj 
statement  can  have  a  statement  label  in  the  remaining  columns  of  the 
label  field.  If  a  debugging  statement  is  continued,  every 
continuation  linemust  have  a  D  in  column  1  and  a  continuation 
indicator  in  column  6. 

The  compiler  command  specifies  whether  debugging  statements  are  to  be 
compiled.  If  you  specify  debug-statement  compilation,  debugging 
statements  are  compiled  as  a  part  of  the  source  program;  if  you  do 
not  specify  debug-statement  compilation,  debunging  statements  are 
treated  as  comments.  For  a  description  of  compilation  commands,  refer 
to  the  appropriate  user's  guide. 


1.3.4   Continuation  Field 


A  continuation  indicator  is  any  character,  except  0  or  space,  in 
column  6  of  a  FORTRAN  line  or  any  digit,  except  0,  after  the  first 
tab,  A  statement  can  be  divided  into  continuation  lines  at  any  point. 
The  compiler  considers  the  characters  after  the  continuation  character 
to  follow  the  last  character  of  the  previous  line,  as  if  no  break 
occurred  at  that  point.  If  a  continuation  indicator  is  0,  then  the 
compiler  considers  the  line  to  be  the  first  line  of  a  FORTRAN 
statement. 
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Comment  lines  cannot  be  continued,  but  they  can  occur  between  a 
statement's  initial  line  and  its  continuation  line(s)  or  between 
successive  continuation  lines. 


1.3.5   Statement  Field 

The  text  of  a  FORTRAN  statement  is  placed  in  the  statement  field. 
Because  the  compiler  ignores  the  tab  character  and  spaces  (except  in 
Hollerith  constants  or  alphanumeric  literals),  you  can  space  the  text 
in  any  way  desired  for  maximum  legibility.  The  use  of  tabs  for 
spacing  is  discussed  in  Section  1.3.2. 


NOTE 

If  a  line  extends  beyond  character 
position  72,  the  text  following  position 
72  is  ignored  and  no  warning  message  is 
printed. 


1.3.6   Sequence  Number  Field 

A  sequence  number  or  other  identifying  information  can  appear  in 
columns  73  through  80  of  any  line  in  a  FORTRAN  program.  The  compiler 
ignores  characters  in  this  field.  Remember  that  you  cannot  move  to 
the  sequence  number  field  by  tab-character  formatting. 


1.4   PROGRAM  UNIT  STRUCTURE 

Figure  1-3  shows  the  allowed  order  of  statements  in  a  FORTRAN  program 
unit.  In  this  figure,  vertical  lines  separate  statement  types  that 
can  be  interspersed.  For  example,  comment  lines,  FORMAT  statements, 
DATA  statements,  and  executable  statements  are  allowed  alternatives  in 
the  body  of  the  program.  Horizontal  lines  indicate  statement  types 
that  cannot  be  interspersed.  For  example,  IMPLICIT  statements  cannot 
be  interspersed  with  executable  statements,  a  PROGRAM  statement,  or  an 
END  statement  because  each  has  a  definite  order  in  the  program. 


Comment 

Lines 

and 

INCLUDE 

SldtiMTienfj 

PROGRAM,  hUNCTION.  SUBROUTINE,  ot  BLOCK  DATA  StaU-ments 

FORMAT 

jikI 

ENTRY 

StaletTiHiits 

IMPLICIT 
Statcmi-nts 

PARAMETER 
Statemenf. 

DATA 
Slatempnts 

OlhiT 
Spocitication 
Statements 

Statement  Function 
Pefinitions 

Executable 
Statements 

END  Line 

Figure  1-3   Required  Order  of  Statements  and  Lines 
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1.5 

INCLUDE  STATEKENT 

^^       The 

INCLUDE  statement  specifies  that  the  contents  of  a  designated  file 

^^m                are 

to   be  incorporated  in  the  FORTRAN  compilation  directly  f 

ollowing 

^       the 

INCLUDE  statement.   It  has  no  effect  on  program  execution. 

except 

to  direct  the  compiler  to  read  FORTRAN  statements  from  a  file. 

The 

INCLUDE  statement  has  the  following  form: 
INCLUDE   file  specification[/[NO] LIST] • 

fil( 

e  specification 

A  character  string  specifying  the  file   to   be   included 

in   the 

compilation.    This   file  specification  must  be  acceptabl 

e  to  the 

operating  system.   (See  the  FORTRAN  IV-PLUS  User's  Guide 

for   the 

form  of  a  file  specification.) 

The 

/LIST  qualifier  indicates  that  the   statements   in   the   s 

pecif ied 

fil 

e   are  to  be  listed  in  the  compil^^tion  source  listing.   An 

asterisk 

(*) 

precedes  each  statement  listed.   The  /NOLIST   qualifier   i 

ndicates 

^^        that   the   included  statements  are  not  to  be  listed  in  the  compilation 

^^       source  listing.   The  default  is  /LIST;   that  is,  the  compiler 

assumes 

^^^       /LIST  if  you  do  not  specify  a  qualifier. 

When  the  compiler  encounters  an  INCLUDE  statement,   it   stops 

reading 

statements   from  the   current   file   and   reads  the  statements  in  the 

inc 

luded  file.   When  i ;:  reaches  the  end   of   the   included   fi 

le,   the 

compiler  resumes  compilation  with  the  next  statement  after  the 

INCLUDE 

sta 

tement. 

An 

INCLUDE  statement  can  be  contained  in  an  included  file. 

^^ 

included  file  cannot  begin  with  a  continuation  line.   Each 

FORTRAN 

^^P       statement  must  be  completely  contained  within  a  single  file. 

The 

INCLUDE  statement  can  appear  anywhere   that   a   comment   1 

ine   can 

app 

ear.    Any  FORTRAN   statement   con   appear   in  an   includ 

ed  file. 

However,   the   included   statements,   v^/hen   combined  with   th 

e   other 

statements   in  the  compilation,  must  satisfy  the  requirements 

shown  in 

Fig 

ure  1-3. 

In 

the  following  example  of  an  INCLUDE  statement,   the   included   file 

COMMON. FTN   defines  the  size  of  the  blank  COMMON  block  and  the 

sii:e  of 

^^        the 

• 

arrays  X,  Y,  and  Z. 

Main  Program  File                File  COMMON. FTN 

INCLUDE  'COMMON. FTN'                 PARAMETER  M  =  100 
DIMENSION  Z(M)                       COMMON  X(M),Y(M) 
CALL  CUBE 
DO  5,  1  =  1, M 
5     Z(I)  =  X(I)+SQRT(Y{I)  ) 

• 

• 

• 

SUBROUTINE  CUBE 
INCLUDE  'COMMON. FTN' 
DO  10,  1=1, M 
10    X(I)  -  Y(I)**3 
RETURN 
END 
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CHAPTER  2 
FORTRAN  STATEMENT  COMPONENTS 

The  basic  components  of  FORTRAN  statements  are: 

•  Constants  —  fixed  values,  such  as  numbers.  They  cannot  be 
changed  by  program  statements. 

•  Variables  —  symbolic  names  that  represent  stored  values.  The 
stored  values  can  be  changed  by  program  statements. 

•  Arrays  —  groups  of  values  that  are  stored  contiguously  and 
can  be  referenced  individually  by  a  symbolic  name  with  a 
subscript  or  collectively  by  just  a  symbolic  name.  Individual 
values  are  called  array  elements. 

•  Function  references  —  names  of  functions,  optionally  followed 
by  lists  of  arguments.  A  function  is  a  program  unit  that 
performs  a  specified  computation  using  the  arguments,  if  any: 
for  example,  computing  the  trigonometric  sine  of  the  argument. 
The  resulting  value  is  used  in  place  of  the  function 
reference. 

•  Expressions  —  constants,  variables,  array  elements,  function 
references  or  combinations  of  these  components  used  in 
conjunction  with  operators.  An  operator  is  a  symbol 
specifying  that  a  certain  kind  of  operation,  such  as 
multiplication,  is  to  be  performed  to  obtain  a  single  result. 

Variables,  arrays,  and  functions  have  symbolic  names.   A  symbolic  name  is 
a  string  of  characters  that  identify  entities  in  the  program. 

Constants,  variables,  arrays,  expressions,  and  functions  can  have  the 
following  data  types: 

Logical 

I nteger 

Real 

Double  precision 

Complex 

The  following  sections  detail  the  basic  components  of  FORTRAN,  with 
the  exception  of  function  references,  which  are  described  in  Chapter 
6.  Sections  2.1  and  2.2  on  symbolic  names  and  data  types, 
respectively,  provide  information  common  to  all  basic  components. 
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2.1   SYMBOLIC  NAMES 

Symbolic  names  identify  entities  within  a  FORTRAN  program  unit.  These 
entities  are  listed  in  Table  2-1.  The  "Typed"  column  indicates 
whether  the  entity  has  a  data  type,  such  as  real,  integer,  etc.  Data 
types  are  discussed  in  Section  2.2. 


Table  2-1 
Entities  Identified  by  Symbolic  Names 


Entity 

Typed 

Variables 

yes 

Arrays 

yes 

Statement  functions 

yes 

Processor-defined  functions 

yes 

Function  subprograms 

yes 

Subroutine  subprograms 

no 

Common  blocks 

no 

Main  programs 

no 

Block  data  subprograms 

no 

Dummy  arguments 

yes 

Function  entry  points 

yes 

Subroutine  entry  points 

no 

Parameter  constants 

yes 

A  symbolic  name  is  a  string  of  letters  and  digits  totaling   a   maximum 
of  six  characters.   The  first  character  must  be  a  letter. 

Examples  of  valid  and  invalid  symbolic  names  are: 

Valid         Invalid 


NUMBER 
K9 


5Q 

B.4 


(begins  with  a  numeral) 
(contains  a  special  character) 


Symbolic  names  must  be  unique  within  a  program  unit.  That  is,  you 
cannot  use  the  same  symbolic  name  to  identify  two  or  more  entities  in 
the  same  program  unit. 

In  executable  programs  consisting  of  two  or  more  program  units,  some 
entities  must  have  unique  names  throughout  all  the  program  units.  The 
entities  are: 

•  Processor-defined  functions 

•  Function  subprograms 

•  Subroutine  subprograms 

•  Common  blocks 

•  Main  programs 

•  Block  data  subprograms 

•  Function  ttntri*! 

•  Subroutin*  entriaa  ' 
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2.2   DATA  TYPES 

Each  basic  component  (constants,  variables,  etc. )   represents   one   of 
several  data  types: 

•  Integer  —  a  whole  number. 

•  Real  —  a  decimal  number,  that  is,  a  whole  number,  a  decimal 
fraction,  or  a  combination  of  the  two. 

•  Double  precision  —  a  real  number  with  more  than  twice  as  many 
maximum  significant  digits. 

•  Complex  —  a  pair  of  real  numbers  representing  a  complex 
number;  the  first  value  represents  the  real  part,  the  second 
represents  the  imaginary  part. 


•   Logical  —  true  or  false. 

The  data  type  of  a  basic  component  can  be  specified  in   one   o 
ways:    it   can  be  inherent  in  its  construction  (as  in  constat 
can  be  implied  by  naming   convention   (with   or   without   an 
statement) ;   or  it  can  be  explicitly  declared. 


three 

;   it 

PLICIT 


Whenever  a  value  of  one  data  type  is  converted  to  a  value  of  another 
type,  the  conversion  is  performed  according  to  the  rules  for 
assignment  statements  (see  Section  3.1). 

ANS  FORTRAN  specifies  that  a  "numeric  storage  unit"  is  the  amount  of 
memory  needed  to  store  a  real,  integer,  or  logical  value.  Double 
precision  and  complex  values  occupy  two  numeric  storage  units.  In 
PDP-11  FORTRAN,  a  numeric  storage  unit  is  four  bytes  of  memory. 

''DP-11  FORTRAN  provides  additional  data  types  for   better   control   of 

erformance   and   memory  requirements.   Table  2-2  lists  the  data  types 

■*ilable  and  the  amount   of   memory   required   (in   bytes)   for   both 

i^AN   IV   and  FORTRAN  IV-PLUS.   The  form  *n  appended  to  a  data  type 

!.v   ,  is  called  a  data  type  length  specifier. 


# 


Table  ..•2 
Data  Typ;^  Storage  Requirements 


Data   Type 

Storage   Requirements 
(bytes) 

FORTRAN    IV 

FORTRAN 
IV-PLUS 

BYTE 
LOGICAL 
LOGICAL*! 
LOGICAL* 2 
L0GICAL*4 

l2 

4 

l2 

not   available 
4 

2  or   43 

l2 
2 

4 

(Continued  on  next  page) 
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Table  2-2  (Cont.  ) 
Data  Type  Storage  Requirements 


Data    Type 

Storage   Requirements 
(Dytes) 

FORTRAN    IV 

FORTRAN 
IV-PLUS 

INTEGER 
INTEGER*2 
INTEGER*  4 

REAL 
REAL*4 

REAL*8 

DOUBLE    PRECISION 

COMPLEX 
C0MPLEX*8 

2    or    4I 

4 
4 

8 
8 

8 
8 

2    or    43 
2 

4 

4 
4 

9 
6 

8 
8 

•'■  Either  two  or  four  bytes  are  allocated  depending  on  the 
compiler  command  qualifier  specified.  The  default  allocation 
is  two  bytes.   Only  two  bytes  are  used  for  computation. 

2  The  1-byte  storage  area  can  contain  the  logical  values  true 
or  false,  a  single  character,  or  integers  in  the  range  -128 
to  +127. 

3  Either  two  or  four  bytes  are  allocated  depending  on  the 
compiler  command  qualifier  specified.  The  default  allocation 
is  two  bytes.  When  four  bytes  are  allocated,  all  four  bytes 
are  used  for  computation. 

4  Four  bytes  are  allocated  but  only  two  bytes  are  used  for 
computation. 


BYTE  and  LOGICAL* 1  are  synonymous, 


2 . 3   CONSTANTS 

A  constant  represents  a  fixed  value  and  can  be  a  number,  a  logical 
value,  or  a  character  string. 

Hollerith  constants  or  i^lphanumei  ic  literals  have  no  data  type.  They 
assume  the  data  type  of  the  context  In  which  they  appear  (see  Section 
2.3.6.2) . 
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2.3.1   Integer  Constants 

An  integer  constant  is  a  whole  number  with  no  decimal  point.  It  can 
have  a  leading  sign  and  is  interpreted  as  a  decimal  number.  An 
integer  constant  has  the  following  form: 

snn 


s 


An  optional  sign, 


V» 


nn 

A  string  of  numeiic  characters. 

Leading  Os,  if  any,  are  ignored. 

A  minus  sign  must  appear  before  a  negative  integer  constant.  A  plus 
sign  is  optional  before  a  positive  constant  (an  unsigned  consi-.ant  is 
assumed  to  be  positive). 

Except  for  the  sign,  an  integer  constant  cannot  contain  a  character 
other  than  the  numerals  0  through  9. 

The  absolute  value  of  an  integer  constant  cannot  be  greater  than  32767 
in  FORTRAN  IV  or  2147483647  in  FORTRAN  IV-PLUS. 

Examples  of  valid  and  invalid  integer  constants  are: 

Valid  Invalid 


0 

-127 

+32123 


99999999999   (too  large) 

3.14         (decimal  point  and 

32,767        comma  not  allowed) 


In  FORTRAN  IV-PLUS,  if  the  value  of  the  constant  is  within  the  range 
-32768  to  +32767,  it  represents  a  2-byte  signed  quantity  and  is 
treated  as  INTEGER*2  data  type.  If  the  value  is  outside  that  unge, 
it  represents  a  4-byte  signed  quantity  and  is  treated  as  INTEGER*4 
data  type. 

Integer  constants  can  also  be  specified  in  octal  form.  The  octal  form 
of  an  integer  constant  is: 


'nn 


nn 


A  string  of  digits  in  the  range  0  to  7. 


An  octal  integer  constant  cannot  be  negative  or  greater   than   "177777 
in  FORTRAN  IV,  or  greater  than  "37777777777  in  FORTRAN  IV-PLUS. 

Examples  of  valid  and  invalid  octal  integer  constants  are: 

Valid  Invalid 


"107 
"177777 


"108     (contains  a  digit  outside   the   allowed 

range) 
"1377.   (decimal  point  not  allowed) 
"17777"  (trailing  quotation  mark  not  allowed) 
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2.3.2   Real  Constants 

A  real  constant  is  a  number  with  a  decimal  point.   It  can  take  one   of 
three  forms: 

•  A  basic  real  constant 

•  A  basic  real  constant  followed  by  a  decimal  exponent 

•  An  integer  constant  followed  by  a  decimal  exponent 

A  basic  real  constant  is  a  string  of  decimal  digits  in   one   of   three 
formats: 

s.nn 
snn. nn 
snn. 


nn 


An  optional  sign. 


A  string  of  decimal  digits. 


The  decimal  point  can  appear  anywhere  in  the  string.  The  number  of 
digits  is  not  limited,  but  only  the  leftmost  7  digits  are  significant. 
Leading  Os  (Os  to  the  left  of  the  first  nonzero  digit)  are  ignored  in 
counting  the  leftmost  7  digits.  Thus,  in  the  constant  0.00001234567, 
all  of  the  nonzero  digits  are  significant,  and  none  of  the  Os  are 
signi  f icant. 

A  decimal  exponent  has  the  form: 
Esnn 


An  optional  sign. 


nn 


An  integer  constant. 


The  exponent  represents  a  power  of  10  by  which  the  preceding  real  or 
integer  constant  is  to  be  multiplied  (for  example,  1.0E6  represents 
the  value  1.0  *  10  **  6) . 

A  real  constant  occupies  four  bytes  and  is  interpreted  as  a  real 
number  with  a  precision  of  typically  seven  decimal  digits. 

A  minus  sign  must  appear  between  the  letter  E  and  a  negative  exponent. 
k   plus  sign  is  optional  for  a  positive  exponent. 

Except  for  algebraic  signs,  a  decimal  point,  and  the  letter  E  (if 
used),  a  real  constant  cannot  contain  a  character  other  than  the 
numerals  0  through  9. 

If  the  letter  E  appears  in  a  real  constant,  an  integer  constant 
exponent  must  follow.  The  exponent  cannot  be  omitted,  but  it  can  be 
0. 

The  magnitude  of  a  nonzero  real  constant  cannot  be  smaller  than 
approximately  0.29E-38  or  greater  than  approximately  1,7E38. 
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Examples  of  valid  and  invalid  real  constants  are; 
Valid  Invalid 


3.14159 
621712. 

-.00127 
+5.0E3 
2E-3 


1,234,567 

325E-45 
-47.E47 
100 
$25.00 


(commas  not  allowed) 
(too  small) 
(too  large) 

(decimal  point  missing) 
(special  character 
not  allowed) 


2.3.3  Double  Precision  Constants 


A  double  precision  constant  is  a  basic  real   constant   or   an 
constant  followed  by  a  decimal  exponent  of  the  following  form: 

Dsnn 


An  optional  sign. 


integer 


nn 


An  integer  constant. 


A  double  precision  constant  occupies  eight  bytes  and  is  interpreted  as 
a  real  number  with  a  precision  of  typically  16  decimal  digits.  The 
number  of  digits  that  precede  the  exponent  is  not  limited,  but  only 
the  leftmost  16  digits  are  significant. 


A  minus  sign  must  appear  before  a  negative  double  precision 
a   plus   sign   is   optional   before  a  positive  constant, 
minus  sign  must  appear  after  the  letter   D   for 
while  a  plus  sign  is  optional  for  "  


constant; 
Similarly,  a 
a   negative   exponent 
a  positive  exponent. 


The  exponent  following  the  letter 
0. 


D  cannot  be  omitted,  but  it   can   be 


The  magnitude  of  a  nonzero  double  precision  constant  cannot  be  smaller 
than  approximately  0.29D-?']  or  greater  than  approximately  1.7D38. 

Examples  of  valid  and  invalid  double  precision  constants  are: 

Valid  Invalid 


1234567890D+5 
+  2.71828182846182D00 
-72.5D-15 
IDO 


1234567890D45 
1234567890. OD-89 
+2.718  2812846182 


(too  large) 

(too  small) 

(no  Dsnn  present; 
this  is  a  valid 
real  constant) 


2.3.4  Complex  Constants 

A  complex  constant  is  a  pair  of  real  constants  separated   by   a   comma 

and   enclosed   in  parentheses.   The  first  real  constant  represents  the 

real   part   of   the   complex   number   and   the  second   real   constant 
represents  the  imaginary  part. 
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A  complex;  constant  has  the  following  form: 
(re, re) 


re 


A  real  constant. 


The  parentheses  and  comma  are  part  of  the   complex   constant   and   are 
required.   See  Section  2.3.2  for  the  rules  for  forming  real  constants. 

A  complex  constant  occupies   eight   bytes  and   is   interpreted  as   a 
complex  number. 

Examples  of  valid  and  invalid  complex  constants  are: 

Valid  Invalid 


(1.70391,-1.70391) 
(+12739E3,0.) 


(1,2)    (integers  are  not  allowed) 
(1.23,)  (second  real  constant  is 

missing) 
(1.0,1.0D0)  (double  precision 

constants  are  not  allowed) 


2.3.5  Logical  Constants 

A  logical  constant  specifies  true  or  false.   Thus,  only  the   following 
two  logical  constants  are  possible: 

.TRUE. 

.FALSE. 

The  delimiting  periods  are  a  required  part  of  each  constant. 


2.3.6  Hollerith  Constants 

A  Hollerith  constant  is  a  string  of  printable  characters  preceded  by  a 
character  count  and  the  letter  H. 

A  Hollerith  constant  has  the  following  form: 
nHclc2c3. . .en 


An  unsigned,  nonzero   integer   constant   stating   the   number   of 
characters  in  the  string  (including  spaces  and  tabs). 


A  printable  character. 
The  maximum  number  of  characters  is  255. 
Examples  of  valid  and  invalid  Hollerith  constants  are: 

Valid  Invalid 


16HT0DAY'S  DATE  IS: 
IHB 


3HABCD  (wrong  number  of  characters) 
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2.3.6.1  Alphanumeric  Literals  -  An  alphanumeric  literal  is  a  string 
of  printable  ASCII  characters  enclosed  by  apostrophes  that  represents 
an  alternate  form  of  a  Hollerith  constant.   The  form  is: 

'clc2c3 . . .en' 

c 

A  printable  character. 

Both  delimiting  apostrophes  must  be  present. 

Within  an  alphanumeric  literal,  the  apostrophe  character  is 
represented  by  two  consecutive  apostrophes  (with  no  space  or  other 
character  between  them). 

The  length  of  the  alphanumeric  literal  is  the  number  of  characters 
between  the  apostrophes,  including  spaces  and  tabs,  except  that  two 
consecutive  apostrophes  represent  a  single  apostrophe.  A  tab  is 
stored  as  a  single  character  but  is  displayed  as  spaces  up  to  the  next 
tab  stop.   The  length  must  be  in  the  range  from  1  to  255. 

Examples  of  valid  and  invalid  literals  are: 

Valid  Invalid 


•WHAT?' 

'TODAY' 'S  DATE  IS: 

'HE  SAID,  "HELLO"' 


'HEADINGS 


"NOW  OR  NEVER" 


(must  contain  trailing 

apostrophe) 
(must  contain  at  least 

one  character) 
(quotation  marks 

cannot  be  used  in 

place  of  apostrophes) 


2.3.6.2  Data  Type  Rules  for  Hollerith  Constants  -  When  Hollerith 
constants  are  used  in  numeric  expressions,  they  assume  a  data  type 
according  to  the  following  rules: 

•  When  the  constant  is  used  with  a  binary  operator,  including 
the  assignment  operator,  the  data  type  of  the  constant  is  the 
data  type  of  the  other  operand.   For  example: 


Statement 

Data  Type 
of  Constant 

Length  of 
Constant 

INTEGER* 2  ICOUNT 
REAL*8  DOUBLE 

RALPHA  =  4HABCD 
JCOUNT  =  ICOUNT  +  'XY' 
DOUBLE  =  8HABCDEFGH 

REAL* 4 

INTEGER*2 

REAL*8 

4 
2 
8 

When  a  specific  data  type  is  required,  that  type   is   assumed 
for  the  constant.   For  example: 


Statement 

Data  Type 
of  Constant 

Length  of 
Constant 

X-Y(IHA) 

INTEGER*2 

2 
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When  the  constant  is  used  as  an  actual  argument,  no  data  type 
is  assumed.   For  example: 


Statement 

Data  Type 
of  Constant 

Length  of 
Constant 

CALL  APAC  (9HABCDEFGHI) 

none 

9 

When  the  constant  is  used  in  any   other   context,   INTEGER*2 
data  type  is  assumed.   For  example: 


Statement 

Data  Type 
of  Constant 

Length  of 
Constant 

IF  (2HAB)  1,2,3 
1=  IHC-lHA 
J=  .NOT.  'B' 

INTEGER* 2 
INTEGER*2 
INTEGER*2 

2 
2 
2 

When  the  length  of  the  constant  is  less  than  the  length  implied  by  the 
data  type,  spaces  are  appended  to  the  constant  on  the  right.  When  the 
length  of  the  constant  is  greater  than  the  length  implied  by  the  data 
type,  the  constant  is  truncated  on  the  right. 

Table  2-2  lists  the  number  of  characters  required  for  each  data  type. 
Each  character  occupies  one  byte  of  storage. 


2.4   VARIABLES 

A  variable  is  a  symbolic  name  associated  with  a  storage  location  (see 
Section  2.1  for  the  form  of  a  symbolic  name).  The  value  of  the 
variable  is  the  value  currently  stored  in  that  location;  however,  you 
can  change  that  value  b>  assigning  a  new  value  to  the  variable. 


Variables  are  classified  by  data  type,  as   are   constants.    Tl.?   data 

of   a   variable   indicates   the   type  of  data  it  represents,  its 

and  its  storage  requirements.   When  data   of   any   type 


type 
precision. 


is 

to  the  data 

variable 


assigned  to  a  variable,  it  is  converted,  if  necessary,  uw  unc  uaua 
type  of  the  variable.  You  can  establish  the  data  type  of  a  variable 
by  using  type  declaration  statements  or  IMPLICIT  statements,  or  by 
choosing  names  that  begin  with  certain  letters. 


Two  or  more  variables  are  associated  with  each  other  when  they  refer 
to  the  same  memory  location.  They  are  partially  associated  when  part 
of  the  location  to  which  one  variable  refers  is  the  same  as  part  or 
all  of  the  location  to  which  the  other  variable  refers.  Association 
and  partial  association  occur  when  you  use  COMMON  statements, 
EQUIVALENCE  statements,  and  actual  arguments  and  dummy  arguments  in 
subprogram  references. 

A  variable  is  considered  defined  if  the  storage  associated  with  it 
contains  data  of  the  same  type  as  the  name.  A  variable  can  be  defined 
before  program  execution  by  a  DATA  statement  or  during  execution  by  an 
assignment  or  input  statement. 

If  variables  of  different  data  types  are  associated  (or  partially 
associated)  with  the  sane  storage  location,  and  the  value  of  one 
variable  is  defined  (for  example,  by  assignment),  the  value  of  the 
other  variable  becomes  undefined;  th.at  is,  you  cannot  predict  its 
va  lue. 


2-10 


FORTRAN  STATEMENT  COMPONENTS 


2.4.1  Data  Type  Specification 

Type  declaration  statements   (see   Section   5.2) 
variables  are  to  represent  specified  data  types. 

COMPLEX  VARl 

DOUBLE  PRECISION  VAR2 


specify   that 
For  example: 


given 


These  statements  indicate  that  the  variable  VARl  is  to  be  associated 
with  an  8-byte  storage  location  which  will  contain  complex  data,  and 
that  the  variable  VAR2  is  to  be  associated  with  an  8-byte  double 
precision  storage  location. 

The  IMPLICIT  statement  (see  Section  5.1)  has  a  more  general  scope:  It 
signifies  that,  in  the  absence  of  an  explicit  type  declaration,  a 
variable  name  beginning  with  a  specified  letter,  or  any  letter  within 
a  specified  range,  is  to  represent  a  specified  data  type. 


You  can  explicitly  declare  the  data  type  of  a  variable 
explicit  declaration  takes  precedence  over  an  IMPLICIT 


only  once, 
statement. 


An 


2.4.2   Data  Type  by  Implication 

In  the  absence  of  either  IMPLICIT  statements  or  explicit 
declaration  statements,  all  variables  with  names  beginning  with 
K,  L,  M,  or  N  are  assumed  to  be  integer  variables.  Variables 
names  beginning  with  any  other  letter  are  assumed  to  be 
variables.   For  example: 


type 

I,  J, 

with 

real 


Real  Variables 


ALPHA 


Integer  Variables 


JCOUNT 


BETA 

TOTAL 


ITEM 
NTOTAL 


2  . 5   ARRAYS 

An  array  is  a  group  of  contiguous  storage  locations  associated  with  a 
single  symbolic  name,  the  array  name.  The  individual  storage 
locations,  called  array  elements,  are  referred  to  by  a  subscript 
appended  to  the  array  name.   Section  2.5.2  discusses  subscripts. 

An  array  can  hiave  from  one  to  seven  dimensions.  For  example,  a  column 
of  figures  is  a  one-dimensional  array.  To  refer  to  a  value,  you  must 
specify  the  row  riumber.  A  table  of  more  than  one  column  of  figures  is 
a  two-dimensional  array.  To  refer  to  a  value  you  nust  specify  both 
row  number  and  column  number.  A  table  of  figures  that  covers  several 
pages  is  a  three-dimensional  array.  To  refer  to  a  value  in  this 
array,  you  must  specify  row  number,  column  number,  and  page  number. 

The  following  FORTRAN  statements  establish  arrays: 

•  Type  declaration  statements  (see  Section  5.2) 

•  The  DIMENSION  statement  (see  Section  5.3) 

•  The  COMMON  statement  (see  Section  5.4) 

•  The  VIRTUAL  statement  (see  Section  5.5) 
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These  statements  may  contain  array   declarators   (see   Section 
that   define   the   name   of  the  array,  the  number  of  dimensions 
array,  and  the  number  of  elements  in  each  dimension. 


2. 5.1) 
in  the 


An  element  of  an  array  is  considered  defined  i  the  storage  associated 
with  it  contains  data  of  the  same  type  a"  the  array  name  (see  Section 
2.5.4).  An  array  element  or  an  entire  ar  y  can  be  defined  before 
program  execution  by  a  DATA  statement  ^^  array  element  can  be 
defined  during  program  execution  by  an  assig-  <ent  or  input  statement, 
and  an  entire  array  can  be  defined  during  program  execution  by  an 
input  statement. 


An 


(.1  Array  Declarators 

array  dei-larator  specifies  the  symbolic   name   that   identifies   an 


array   within   a   program   un 
array. 


it   and   indicates  the  properties  of  that 


An  array  declarator  has  the  following  form: 


a  (d[,d] 


) 


The  symbolic   name   of   tne   array,   that   is,   the   array   name, 
(Section  2.1  gives  the  form  of  a  symbolic  name.) 


A  dimension  declarator, 


The  number  of  dimension 


declarators  indicates  the  number  of  dimensions 


in  the  array.   The  number  of  dimensions  can  range  f.  m  one  to  seven. 

For  example,  in 

DIMENSION  lUNIT  (10,10,10) 

lUNIT  is  a  three-dimensional  array. 

The  value  of  a  dimension  declarator  specifies  the  number  of  elements 
in  that  dimension.  In  the  example  above,  each  dimension  of  lUNIT 
consists  of  10  elements. 

The  number  of  elements  in  an  array  is  equal   to   the   product   of   the 

number   ( 

elements, 


>f   elements   in   each   dimension. 


lUNIT  above  contains  1000 


An  array  name  can  appear  in  on 


ly  one  array  declarator  within  a  program 


unit. 


Dimension 


declarators   that   are   not   constant   can   be   used   in 


subprogram  to  define  adjustable  arrays.  You  can  use  adjustable  arrays 
within  a  single  subprogram  to  process  arrays  with  different  dimension 
declarators  by  specifying  the  declarators  as  well  as  the  array  name  as 
subprogram  arguments.  See  Section  6.1.2  for  more  information. 
Dimension  declarators  that  are  not  constant  are  not  permitted  in  a 
main  program. 

A  dimension  declarator  in  FORTRAN  IV  is  an  integer  constant  or  integer 
variable  that  specifies  the  upper  bound  of  the  array. 
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A  dimension  declarator  in  FORTRAN  IV-PLUS  can  specify   both   an   upper 
bound  and  lower  bound  for  the  array  as  follows: 


dl 
du 


[dl:]  du 

The  lower  bound  of  the  dimension. 

The  upper  bound  of  the  dimension. 


Specifying  the  lower  bound  of  an  array  allows  you  to  use  a   range  of 

subscripts  which  does  not  start  with  1.   For  example,  to  reference  an 

array  storing  data  for  the  years  1964  to  1974,  you  could  specify  an 
upper  bound  of  74  and  a  lower  bound  of  64  as  follows: 

DIMENSION  KYEAR  (64:74) 

The  value  of  the  lower  bound  dimension  declarator  can  be  negative,  0, 
or  positive.  The  value  of  the  upper  bound  dimension  declarator  must 
be  greater  than  or  equal  to  the  corresponding  lower  bound  dimension 
declarator.  The  number  of  elements  in  the  dimension  is  du-dl+1.  If  a 
lower  bound  is  not  specified,  it  is  assumed  to  be  1,  and  the  value  of 
the  upper  bound  specifies  the  number  of  elements  in  that  dimension. 
For  example,  in 

DIMENSION  NUM  (0:9,-1:1) 

NUM  contains  30  elements. 

Each  dimension  bound  is  an  integer  arithmetic  expression  in  which: 

•   Each   operand   is   an   integer   constant,   an   integer    dummy 
argument,  or  an  integer  variable  in  a  COMMON  block 


Each  operator  is  a  +, 


* 


,  /,  or  **  operator 


Note  that  array  references  and  function  references  are  not  allowed   in 
dimension  bounds  expressions. 


2.5.2  Subscripts 

A  subscript  qualifies  an  array  name.  A  subscript  is  a  list  of 
expressions,  called  subscript  expressions,  that  are  enclosed  in 
parentheses  and  that  determine  which  element  in  the  array  is 
referenced.   The  subscript  is  appended  to  the  array  name  it  qualifies. 

A  subscript  has  the  following  form: 

(s [, s]  .  .  .  ) 


A  subscript  expression. 

A  subscript  expression  can  be  a  constant,  variable,  or  arithmetic 
expression.  If  the  value  of  a  subscript  is  not  of  type  integer,  it  is 
converted  to  integer  by  truncation  of  any  fractional  part. 

A  subscripted  array  reference  must  contain  one  subscript  expression 
for  each  dimension  defined  for  that  array  (one  for  each  dimension 
declarator ) , 
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2.5.3  Array  Storage 


As  discussed  earlier  in  this  section,  you  can  think  of  the  dimensions 
of  an  array  as  rows,  columns,  and  levels  or  planes.  However,  FORTRAN 
always  stores  an  array  in  memory  as  a  linear  sequence  of  values.  A 
one-dimensional  array  is  stored  with  its  first  element  in  the  first 
storage  location  and  its  last  element  in  the  last  storage  location  of 
the  sequence.  A  multidimensional  array  is  stored  so  that  the  leftmost 
subscripts  vary  most  rapidly.  This  is  called  the  "order  of  subscript 
progression."  For  example,  Figure  2-1  shows  array  storage  in  one,  two, 
and  three  dimensions. 


l-OimensJonal  Array  BRC  (6) 


1 

BRC  (1) 

2 

BRC  (2) 

3 

BRC  (3) 

4 

BRC  (4) 

5 

BRC  (5) 

6 

BRC  (6) 

-Memory  Positions 


2-Dimensional  Array  BAN  (3,4) 


1 

BAN  (1,1) 

4 

BAN  (1,2) 

7 

BAN  (1,3) 

10 

BAN  (1,4) 

2 

BAN  (2,1) 

5 

BAN  (2,2) 

8 

BAN  (2,3) 

11 

BAN  (2,4) 

3 

BAN  (3,1) 

t 

BAN  (3,2) 

9 

BAN  (3,3) 

12 

BAN  (3,4) 

i 

i 

Me 

mr 

>rv  Positions 

3-Dimensional  Array  BOS  (3,3,3) 


19 

BOS  (1,1,3) 

22 

BOS  (1,2,3) 

25 

BOS  (1,3,3) 

20 

BOS  (2,1,3) 

23 

BOS  (2,2,3) 

26 

BOS  (2,3,3) 

10 

BOS  (1,1,2) 

13 

BOS  (1,2,2) 

16 

BOS  (1,3,2)  K 

27 

BOS  (3,3,3) 

11 

BOS  (2,1,2) 

14 

BOS  (2,2,2) 

17 

BOS  (2,3,2)  1 

1 

BOS  (1,1,1) 

4 

BOS  (1,2,1) 

7 

BOS  (1,3,1)  ^ 

18 

BOS  (3,3,2)  1 

2 

BOS  (2,1,1) 

5 

B0S(2,?,1) 

8 

BOS  (2,3,1)  1 

3 

BOS  (3,1,1) 

6 

BOS  (3,2,1) 

9 

BOS  (3,3.1)  1 

■Memory  Positions 


Figure  2-1   Array  Storage 


2.5.4  Data  Type  of  an  Array 

The  data  type  of  an  array  is  specified  in  the  same  way  as  the  data 
type  of  a  variable,  that  is,  implicitly  by  the  initial  letter  of  the 
name  or  explicitly  by  a  type  declaration  statement. 

All  the  values  in  an  array  have  the  same  data  type.  Any  value 
assigned  to  an  array  element  is  converted  to  the  data  type  of  the 
array.  I f  an  array  is  named  in  a  DOUBLE  PRECISION  statement,  for 
example,  the  compiler  allocates  an  8-byte  storage  location  for  each 
element  of  the  array.  When  a  value  of  any  type  is  assigned  to  any 
element  of  that  array,  it  is  converted  to  double  precision. 
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2.5.5  Array  References  Without  Subscripts 

In  the  following  types  of  statements,  you  can  specify   an   array   name 
without   a  subscript   to  indicate  that  the  entire  array  is  to  be  used 
(or  defined) : 

•  Type  declaration  statements 

•  COMMON  statement 

•  DATA  statement 

•  EQUIVALENCE  statement 

•  FUNCTION  statement 

•  SUBROUTINE  statement 

•  Input/output  statements 

•  ENTRY  statement 

You  can  also  use  unsubscr ipted  array  names  as  actual  arguments  in 
references  to  external  procedures.  Unsubscr ipted  array  names  are  not 
permitted  in  any  other  type  of  statement. 


2.5.6  Adjustable  Arrays 

Adjustable  arrays  allow  subprograms  to  manipulate  arrays  of  variable 
dimensions.  To  use  an  adjustable  array  in  a  subprogram,  you  specify 
the  array  bounds  and  the  array  name  as  subprogram  arguments.  See 
Chapter  6  for  more  information. 


2.6   EXPRESSIONS 

An  expression  represents  a  single  value.  It  can  be  a  single  basic 
component,  such  as  a  constant  or  variable,  or  a  combination  ot  basic 
components  with  one  or  more  operators.  Operators  specify  computations 
to  be  performed,  using  the  value(s)  of  the  basic  component (s)  to 
obtain  a  single  value. 

Expressions  are  classified  as  arithmetic,  relational,  or  logical. 
Arithmetic  expressions  produce  numeric  values;  relational  and  logical 
expressions  produce  logical  values. 


2.6.1   Arithmetic  Expressions 

Arithmetic  expressions  are  formed  with  arithmetic  elements  and 
arithmetic  operators.  The  evaluation  of  such  an  expression  yields  a 
single  numeric  value. 

An  arithmetic  element  can  be  any  of  the  following: 

•  A  numeric  constant 

•  A  numeric  variable 
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A  numeric  array  element 

An  arithmetic  expression  enclosed  in  parentheses 


An 


arithmetic  function  reference 


The  term  "numeric,"  as  used  above,  can  also  be  interpreted  to   include 


logical   data, 


lince  logical  data  is  treated  as  integer  data  when  used 


in  an  arithmetic  context, 


Arithmetic  operators  specify  a  computation  to  be  performed  using  the 
values  of  arithmetic  elements  to  produce  a  numeric  value  as  a  result. 
The  operators  and  their  meanings  are: 


Operator 


** 


Function 


Exponentiation 
Multiplication 


/ 


Division 


Addition  and  unary  plus 


• 


-  Subtraction  and  unary  minus 

These  operators  are  called  binary  operators  because  each  is  used  with 
two  elements.  The  plus  {+)  and  minus  (-)  symbols  are  also  unary 
operators  when  written  immediately  preceding  an  arithmetic  element  to 
denote  a  positive  or  negative  value. 

You  can  use  any  arithmetic  operator  with  any  valid  arithmetic  element, 
except  as  noted  in  Table  2-3. 

A  variable  or  array  element  must  have  a  defined  value  before  it  can  be 
used  in  an  arithmetic  expression. 

Table  2-3  shows  the  allowed  combinations  of  data  types  of  base  and 
exponent,  and  the  data  type  of  the  result  of  exponentiation. 


Table  2-3 
Result  Data  Type  for  Exponentiation 


Base 

Exponent 

Integer 

Real 

Double 

Complex 

Integer 
Real 
Double 
Complex 

Integer 
Real 
Double 
Complex 

No 
Real 
Double 
No 

No 

Double 
Double 
No 

No 
No 
No 
No 

Note:  A  negative  element  can  be  exponentiated 
only  by  an  integer  element;  and  an  element  with  a 
0  value  cannot  be  exponentiated  by  another  0-value 
element. 
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In  any  valid  exponentiation,  the  result  has  the  same  data  type  as  the 
base  element,  except  in  the  case  of  a  real  base  and  a  double  precision 
exponent,   The  result  in  this  case  is  double  precision. 

Arithmetic  expressions  are  evaluated  in  an  order  determined  by  the 
operators.  The  operators  are  ranked  in  precedence  and  operations  of 
higher  precedence  are  performed  first.   The  precedence  is: 


Operator 


Precedence 


** 


First 


*  and  / 


+  and  - 


Second 


Third 


When  two  or  more  operators  of  equal  precedence  (such  as  +  and  -) 
appear,  they  are  evaluated  by  the  compiler  in  any  order  that  is 
algebraically  equivalent  to  a  left-to-right  order  of  evaluation.  For 
example,  in  3+4-1,  the  addition  is  performed  before  the  subtraction. 
Exponentiation,  however,  is  evaluated  right  to  left.  For  example,  in 
fi,**B**C,  B**C  is  evaluated  first  and  then  A  is  raised  to  the  resulting 
power. 


2.6  1.1   Use  of  Parentheses  -  You   can   use   parentheses   to   force   a 
particular   order   of   evaluation.    When   part   of   an   expression  is 
enclosed   in   parentheses,   that   part   is   evaluated   first   and 
resulting   value   is   used   in   the  evaluation  of  the  remainder  of  the 
expression.    In   the   following   examples,   the   numbers 
operators  indicate  the  order  of  evaluation: 


the 
the 
below    the 


4  +  3  * 

t    t 
3    1 


2  -  6  / 

t    t 
4    2 


2=7 


(4  +  3)  *2-6/2=ll 

t    t    t    t 
12    4    3 


(4+3*2-6)/2  = 

t    t    t     t 
2    13     4 


((4+3) 

* 

2 

- 

6) 

/ 

t 

t 

t 

t 

1 

2 

3 

4 

2=4 


As  shown  in  the  third  and  fourth  examples,  expressions  within 
parentheses  are  evaluated  according  to  the  normal  order  of  precedence, 
unless  you  override  the  order  by  using  parentheses  within  parentheses. 


Using  parentheses  to  specify  the  evaluation  order  is   often 
in   high-accuracy   computations   since   evaluation   orders 
aj  lebraically  equivalent  might  not  be  computationally 
to  rounding  and  normalization. 


important 

that   are 

equivalent   due 


Using  '>arentheses  to  specify  the  evaluation  order  is  important, 
furthermore,  in  difficult  expressions.  If  any  doubt  exists  as  to  the 
resulting  value  of  an  expression,  use  parentheses.  Extra  parentheses 
do  not  affect  the  result,  but  lack  of  sufficient  parentheses  does. 
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2.6.1.2  Data  Type  of  an  Arithmetic  Expression  -  If  every  element  in 
an  arithmetic  expression  is  of  the  same  data  type,  the  value  produced 
by  the  expression  is  also  of  that  data  type.  If  elements  of  different 
data  types  are  combined  in  an  expression,  the  data  type  of  the  result 
of  each  operation  is  determined  by  a  rank  associated  with  each  data 
type,  on  the  following  basis: 


Jata  Type 


Rank 


Logical 

1 

(Low) 

Integer 

2 

Real 

3 

Do'ible  p 

recision 

4 

Complex 

5 

(High 

The  data  type  of  the  value  produced  by  an  operation  on  two  arithmetic 
elements  of  different  data  types  is  the  data  type  of  the 
highest-ranked  element  In  the  operation.  For  example,  the  value 
resulting  from  an  operation  on  an  integer  and  a  real  element  is  real. 
The  data  type  of  an  expression  is  the  data  type  of  the  result  of  the 
last  operation  in  that  expression. 

Operations  are  classified  by  data  type  as  follows: 


Integer  operations  —  Integer  operations  are  performed  only 
on  integer  elements.  (Logical  entities  used  in  an  arithmetic 
context  are  treated  as  integers.)  In  integer  arithmetic,  any 
fraction  that  can  result  from  division  is  truncated,  not 
rounded.   For  example: 

1/3  +  1/3  +  1/3 


The  value  of  this  expression  is  0,  not  1. 

In  FORTRAN  IV-PLUS,  an  operation  involving  an  INTEGER*2 
element  and  an  INTlJER*4  element  is  carried  out  as  an 
INTEGER*4  operation  and  produces  an  INTEGER*4  result. 

Real  operations  —  Real  operations  are  performed  only  on  real 
elements  or  combinations  of  real,  integer,  and  logical 
elements.  Any  integer  elements  present  are  converted  to  real 
data  type  by  giving  each  a  fractional  part  equal  to  0.  The 
expression  is  then  evaluated  using  real  arithmetic.  Note, 
however,  that  in  the  statement  Y  -  (I/J)*X,  an  integer 
divisior.  opcrati-r.  is  performed  on  I  and  J  and  a  real 
multiplication  is  performed  on  that  result  and  X. 


Double  precision  operations  —  Any  real  or  integer  element  in 
a  double  precision  operation  is  converted  to  doubJe  precision 
by  making  it  the  most  significant  portion  of  a  double 
precision  element.  The  least  significant  portion  is  0.  The 
expression  is  then  evaluated  i.i  double  precision  arithmetic. 
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Converting  a  real  element  to  a  double  precision  element   does 
not  increase  its  accuracy.   For  example,  the  real  number: 

0.3333333 
is  converted  to: 

O.33333330OOO0000OD0 
not  to: 

0.3333333333333333D0 

Complex  operations  —  In  an  operation  on  an  expression 
containing  a  complex  element,  integer  elements  are  converted 
to  real  data  type,  as  previously  described.  Double  precision 
elements  are  converted  to  real  data  type  by  rounding  the 
least  significant  portion.  The  real  element  thus  obtained  is 
designated  as  the  real  part  of  a  complex  numbjr;  the 
imaginary  part  is  0.  The  expression  is  then  evalua'-ed  using 
complex  arithmetic  and  the  resulting  value  is  complex. 


2.6.2   Relational  Expressions 

A  relational  expression  consists  of  two  arithmetic  expressions 
separated  by  a  relational  operator.  The  value  of  the  expression  is 
true  if  the  stated  relationship  exists  and  false  if  it  does  not. 

A  relational  operator  tests  for  a  relationship  between  two  arithmetic 
expressions.   These  operators  are: 


Operator 
.LT. 
.LE. 
.EQ. 
.NE. 
.GT. 
.GE. 


Relationship 
Less  than 

Less  than  or  equal  to 
Equal  to 
Not  equal  to 
Greater  than 
Greater  than  or  equal  to 


The  delimiting  periods  are  a  required  part  of  each  operator. 

Complex  expressions  can  be  related  only  by  the  .EQ.  and  .NE. 
operators.  Complex  entities  are  equal  if  their  corresponding  real  and 
imaginary  parts  are  both  equal. 

In  an  arithmetic  relational  expression,  the  arithmetic  expressions  are 
first  evaluated  to  obtain  their  values.  These  values  are  then 
compared  to  determine  whether  the  relationship  stated  by  the  operator 
exists.   For  example: 

APPLE+PEACH  .GT.  PEAR+ORANGE 
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This  expression  states  the  relationship,  "The  sum  of  the  real 
variables  APPLE  and  PEACH  is  greater  than  the  sum  of  the  real 
variables  PEAR  and  ORANGE."  If  that  relationship  exists,  the  value  of 
the  expression  is  true;   if  not,  the  value  of  the  expression  is  false. 

All  relational  operators  have  the  same  precedence.  Arithmetic 
operators  have  a  higher  precedence  than  relational  operators. 

As  in  any  other  arithmetic  expression,  you  can  use  parentheses  to 
alter  the  order  of  evaluation  of  the  arithmetic  expression"  in  a 
relational  expression.  However,  since  arithmetic  operators  are 
evaluated  before  relational  operators,  you  need  not  enclose  the  entire 
arithmetic  expression  in  parentheses. 

You  can  compare  two  numeric  exrressions  of  different  data  types  in  a 
relational  expression.  In  thib  case,  the  value  of  the  expression  with 
the  lower-ranked  data  type  is  converted  to  the  higher-ranked  data  type 
before  the  comparison  is  made. 


2.6.3   Logical  Expressions 

Logical  expressions  are  formed  with  logical  elements  and  logical 
operators.  A  logical  expression  yields  a  single  logical  value,  either 
true  or  false. 


A  logical  element  can  be  any  of  the  following; 


An  integer  or  logical  constant 

An  integer  or  logical  variable 

An  integer  or  logical  array  element 

A  relational  expression 

A  logical  expression  enclosed  in  parentheses 

An  integer  or  logical  function  reference 


The  logical  operators  are; 


Operator     Example  Meaning 

.AND.       A  .AND.  B     Logical  conjunction:   The  expression  is  true 

if,  and  only  if,  both  A  and  B  are  true. 

.OR.       A  .OR.  B      Logical   disjunction   (inclusive   OR):    The 

expression   is   true   if   either   A  or  B,  or 


both, 


IS  true, 


XOR, 


XOR.  B 


Logical  exclusive   OR; 


The 


true   if 
versa, 


expression   is 


is  true  and  B  is  false 


or  vice 


but  the  expression  is  false  if   both 
elements  have  the  same  value. 


,EQV, 


EQV, 


Logical  equivalence:  The  expression  is  true 
if,  and  only  if,  both  A  and  B  have  the  same 
logical  value,  whether  true  or  false. 


.NOT, 


NOT, 


Logical  negation:   The   expression   is   true 
if,  and  only  if,  A  is  false. 


The  delimiting  periods  of  logical  operators  are  required, 
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A  logical  expression  is  evaluated  according  to  an  order  of   precede] 
assigned  to   its   operators.    The   following  list  gives  the  order 

^^^        which  all  the  operators  that  can  appear  in  a   logical   expression  . 

^^B        evaluated: 

nee 

in 

are 

Operator 

Precedence 

** 

First  (Highest) 

*,/ 

Second 

+  ,- 

Third 

Relational 
Operators 

Fourth 

.NOT. 

Fifth 

.AND. 

Sixth 

^^                      .OR. 

Seventh 

^y                    .XOR.,.EQV. 

Eighth 

Operators  of  equal 
example: 

rank   are   evaluated   from   left   to   right. 

For 

A*B+C*ABC  .EQ. 

X*Y+DM/ZZ  .AND.  .NOT.  K*B  .GT.  TT 

The  sequence  in  which  evaluation 

occurs  is: 

(  (  (A*B)  +  (C*ABC)  )  .EQ.  ((X*Y)  + 

(DM/ZZ)) ) .AND. (.NOT. ( (K*B ) .GT.TT) ) 

^^P         As  in  arithmetic  exj 
^^         normal  sequence  of 

pressions,  you  can  use   parentheses   to   alter 
evaluation. 

the 

Two  consecutive  log 
.NOT. 

ical  operators  are  not  allowed  unless  the  second 

is 

Some  logical  expressions  are  eva. 
are   evaluated.    For  example,  i 
(F(X,Y)  .GT.   2.0)  .AND.   B  is  .1 
can   be   determined  by  testing  A 
function  subprogram  Fmay  not  be 
^^k         from  the  call,  such  as  changing 

luated  before  all  their  subexpressions 

E  A  is  .FALSE.,  the  expression  A  .AND. 

FALSE..   The  value  of   the   expression 
without  evaluating  F(X,Y).   Thus,  the 
called,   and   side-effects   resulting 

variables  in  COMMON,  cannot  occur. 

When  a  logical  operator  operates  on  logical   elements,   the   resulting 
data   type   is   logical.    When  a  logical  operator  operates  on  integer 
elements,  the  logical  operation   is   carried   out   bit-by-bit   on   the 
corresponding   bits   of   the   internal   (binary)  representation  of  the 
integer  elements.   The  resulting  data  type  is  integer.   When  a  logical 
operator   combines   integer   and   logical  values,  the  logical  value  is 
first  converted  to  an  integer  value,  and  then  the  operation  is  carried 
out  as  for  two  integer  elements.   The  resulting  data  type  is  integer. 

Example: 

INTEGER  I,  J, 
I  =  "65 
J  =  I. OR. "100 
K  =  LAND. "23 

K 

^^         In  this  example,  I 

has  the  value 

"165  and  K  has  the  value  "21. 
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ASSIGNMENT  STATEMENTS 


Assignment  statements  assign  a  single  value  to   a   variable   or   array 
element. 

The  three  kinds  of  assignment  statement  are: 

•  Arithmetic  assignment  statement 

•  Logical  assignment  statement 

•  ASSIGN  statement 


3.1   ARITHMETIC  ASSIGNMENT  STATEMENT 

An  arithmetic  assignment  statement  assigns  an  arithmetic   value 
variable  or  array  element. 

The  arithmetic  assignment  statement  has  the  following  form: 
V  =  e 

V 

A  numeric  variable  or  array  element. 


to 


An  arithmetic  expression. 

The  equal  sign  does  not  mean  "is  equal  to,"  as  in  mathematics; 
rather,  it  means  "is  replaced  by."  For  example: 

KOUNT  =  KOUNT  +  1 

This  statement  means,  "replace  the  current  value  of  the  integer 
variable  KOUNT  with  the  sum  of  the  current  value  of  KOUNT  and  the 
integer  constant  1." 

Although  the  symbolic  name  on  the  left  of  the  equal  sign  can  be 
undefined,  values  must  have  been  previously  assigned  to  all  symbolic 
references  in  the  expression  on  the  right  of  the  equal  sign. 

The  expression  must  yield  a  value  of  the  proper  size.  For  example,  a 
real  expression  that  produces  a  value  greater  than  32767  is  invalid  if 
the  entity  on  the  left  of  the  equal  sign  is  an  INTEGER*2  variable. 

If  V  and  e  have  the  same  data  types,  the  statement  assigns  the  value 
of  e  directly  to  v.  If  the  data  types  are  different,  the  value  of  e 
is  converted  to  the  data  type  of  v  before  it  is  assigned.  Table  3-1 
summarizes  the  data  conversion  rules  for  assignment  statements. 
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Table  3-1 
Conversion  Rules  for  Assignment  Statements 


Expression  (Ej 

Variable 

or  Af.ay 

Element  (V) 

'i'teger  or  Logical 

Real 

Double 
Precision 

Complex 

Integer 

Assign  L  to  V 

Truncate  t  to 

Truncate  E  to 

Truncate  real  part 

or 

integer  and 

integer  and 

of  E  lo  integer 

Logical 

assign  to  V 

assign  to  V 

and  assign  to  V; 
imaginary  part 
of  I-  is  not  used 

Real 

Append  trat  !u.ii 

Assign  H  to  V 

Assign  MS'  por- 

Assign real  part 

(.0)  lo  I-  and 

tion  ot  h  to  V; 

of  E  lo  V;  imag- 

assign lo  V 

LS'  portion  ot 
E  is  rounded 

inary  part  of  E 
is  not  used 

Double 

Append  liaction 

Assign  L  to  MS' 

Assign  E  to  V 

Assign  real  part 

Precision 

(.0)  to  \r.  and  as- 

portion ot  V: 

of  E  lo  MS'  por- 

sign to  MS'  por- 

LS' porti  >n  ot 

tion  ofV;  LS' 

tion  of  V;LS' 

VisO 

portion  of  V  is 

portion  ot  V  is  0 

zero,  imaginary 
part  of  E  is  not 
used 

Complex 

Append  fij'tion 

Assign  \.  1>) 

Assigii  MS'  por- 

Assign E  to  V 

(.0)  to  L  and  as- 

real  part  ot  V. 

tion  ol  E  to  real 

sigi;  to  real  p;'rt 

imaginarv  part 

part  ol  V;  LS' 

ot'V;  imaginary 

ol  V  is  0.0 

portion  oCE  is 

pari  ol  V  IS  0.0 

rounded;  imagi- 
nary part  oT  V 
is  0.0 

'  MS  =  most  sigmticanl  (high  ordoi):  LS  "  least  sigiiilicani  (low  ordci) 

Examples  of  valid  and  invalid  assignment  statements  are: 
Valid 

BETA  =  -1./{2.*X)+A*A/(4.*(X*X) ) 
PI  =  3.14159 
SUM  ^  SUM+1. 
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Invalid 

3.14  =  A-B 

-J  =  1**4 


(entity  on  the  left  must  be  a 
variable  or  array  element) 

(entity  on  the  left  must  be  a  variable 
or  array  element) 


ALPHA  =  ( (X+6) *B*B/(X-Y)  (entity  on  the  right  is  an  invalid 

expression  because  the  parentheses   are 
not  balanced 


3.2   LOGICAL  ASSIGNMENT  STATEMENT 

The  logical  assignment  statement  assigns  a  logical  value  (true  or 
false)  to  a  variable  or  array  element. 

The  logical  assignment  statement  nas  the  following  form: 

V    =  e 

V 

A    logical   variable   or    array    elemtjnt. 

e 

A  logical  expression. 

Note  that  V  must  be  of  logical  data  type  and  e  must  yield  a  logical 
value.  Otherwise,  conversions  will  be  made  according  to  Table  3-1, 
but  the  values  will  not  have  any  logical  meanirig. 

Values,  either  numeric  or  logical,  must  have  been  previously  assigned 
to  all  variables  or  array  elements  in  e. 

Examples  of  logical  assignment  statements  are: 

Valid 

LOGICAL  PAGEND,  PRNTOK,  ABIG 

PAGEND  =  .FALSE. 

PRNTOK  =  LINE  .LE.  132  .AND.  .NOT.  PAGEND 

ABIG  =  A  .GT.  B  .AND.  A  .GT.  C  .AND.  A  .GT.  D 

Invalid 

X=,TRUE.  (Entity  on  the  left  must  be  logical) 

ASSIGN 


3.3   ASSIGN  STATEMENT 

The  ASSIGN  statement  assigns  a  statement  label   value   to   an  integer 

variable.    The   variable   can   then   be   used   to   specify  a  transfer 

destination  in  a  subsequent  assigned  GO  TO   statement   (see  Section 
4.1.3). 
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The  ASSIGN  statement  has  the  following  form: 
ASSIGN  s  TO  V 


The  label  of  an  executable  statement  in  the  same  program  unit   as 
the  ASSIGN  statement. 


An  integer  variable. 

The  ASSIGN  statement  assigns  the  statement  label  to  the  variable.  It 
is  similar  to  an  arithmetic  assignment  statement,  except  that  the 
variable  becomes  defined  for  use  as  a  statement  label  reference  and 
becomes  undefined  as  an  integer  variable;  that  is,  the  value  cannot 
be  used  for  purposes  of  output  or  arithmetic. 

The  statement  label  must  refer  to  an  executable  statement  in  the  same 
program  unit.   It  may  not  refer  to  a  FORMAT  statement. 

The  ASSIGN  statement  must  be  executed  before  the  assigned  GO  TO 
statement(s)  in  which  the  assigned  variable  is  to  be  used.  The  ASSIGN 
statement  and  the  assigned  GO  TO  statement (s)  must  occur  in  the  same 
program  unit. 

For  example: 

ASSIGN  100  TO  NUMBER 

This  statement  associates  the  variable  NUMBER  with  the  statement  label 
100.  Arithmetic  operations  on  the  variable,  as  in  the  following 
statement,  then  become  invalid.   For  example: 

NUMBER  =  NUMBER+1 

is  undefined  and  does  not  result  in  a  value  of  101  being  stored  in 
NUMBER. 

Assigning  the  variable  a  value  with  the  following  arithmetic 
assignment  statement: 

NUMBER=10 

dissociates  the  variable  from  statement  100.  The  variable  can  no 
longer  be  used  in  an  assigned  GO  TO  statement,  but  has  the  arithmetic 
value  10. 

Examples: 

Valid 

ASSIGN  10  TO  NSTART 

ASSIGN  99993  TO  KSTOP 

Invalid 


ASSIGN  250  TO  ERROR 


(variable  must  be  integer) 
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Statements  are  normally  executed  in  the  order  in  which  they  are 
written.  However,  you  may  interrupt  normal  program  flow  to  transfer 
control  to  another  section  of  the  program  or  to  a  subprogram. 

You  can  use  control  statements  to  transfer  control  to  a  point  within 
the  same  program  unit  or  to  another  program  unit.  Control  statements 
also  govern  iterative  processing,  suspension  of  program  execution,  and 
program  termination. 

The  control  statements  are: 


GO  TO  statement  —  transfers  control  within  a  program  unit 

IF    statement  —  conditionally    transfers    control    or 
conditionally  executes  a  statement 

DO  statement  —  specifies  iterative  processing  of  a   specified 
group  of  statements  a  specified  number  of  times. 

CONTINUE  statement  —  transfers  control  to  the  ne:ct  executable 
statement 

CALL  statement  —  transfers  control  to  a  subprogram 

RETURN  statement  —  returns  control  from  a  subprogram   to   the 
calling  program  unit 

PAUSE  statement  —  temporarily  suspends  program  execution 

STOP  statement  —  terminates  program  execution 

END  statement  —  marks  the  end  of  a  program  unit 


The  following  sections  describe  these  statements,  giving   their   forms 
and  examples  of  the  ways  in  which  they  are  used. 
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4.1   GO  TO  STATEMENTS 

GO  TO  statements  transfer  control  within  a  program   unit, 
types  of  GO  TO  statements  are: 

•  Unconditional  GO  TO  statement 

•  Computed  GO  TO  statement 

•  Assigned  GO  TO  statement 


The   three 


4.1.1   Unconditional  GO  TO  Statement 

The  unconditional   GO  TO   statement   transfers   control   to   the   same 
statement  every  time  it  is  executed. 

The  unconditional  GO  TO  statement  has  the  form: 

GO  TO  s 


A  statement  label. 

The  statement  identified  by  s  must  be  an  executable  statement   in   the 
same  program  unit  as  the  GO  TO  statement. 

Examples: 

GO  TO  7734 

GO  TO  99999 


4.1.2   Computed  GO  TO  Statement 

The  computed  GO  TO  statement  transfers   control   to  a   statement 
specified  by  the  value  of  an  arithmetic  expression. 


slist 


GO  TO  (slist) [,]  e 

A  list,  called  the  transfer   list,   of   one   or   more   labels   of 
executable  statements  separated  by  commas. 


^ 


An  arithmetic  expression  whose  value  is  in   the   range   1   to   n, 
where  n  is  the  number  of  statement  labels  in  the  transfer  list. 

The  computed  GO  TO  statement  evaluates  e  and,  if  necessary,  converts 
the  result  to  integer  data  type.  Control  is  transferred  to  the 
statement  label  in  position  e  in  the  transfer  list. 
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If  the  value  of  e  is  less  than  1  or  greater  than  the  number  of  labels 
in  the  transfer  list,  control  is  transferred  to  the  first  executable 
statement  after  the  computed  GO  TO. 

Examples: 

GO  TO  (12,24,36) , INDEX 

GOTO  (320,330,340,350,360),  SITU(J,K)+1 

In  the  first  example,  if  INDEX  has  a  value  of  2,  execution  will  be 
transferred  to  statement  24.  In  the  second  example,  if  SITU  (J, K)  has 
a  value  of  2,  execution  will  be  transferred  to  statement  340. 


4.1.3  Assigned  GO  TO  Statement 

The  assigned  GO  TO  statement  transfers  coh-rol  to  a  statement  label 
placed  in  a  variable  by  an  ASSIGN  statement.  Thus,  the  transfer 
destination  can  be  changed,  depending  on  the  most  recently  executed 
ASSIGN  statement. 

The  assigned  GO  TO  statement  has  the  following  form: 

GO  TO  v[[,] (slist) ] 


An  integer  variable. 


slist 

A  list  of  one  or  more  labels  of  executable   statements   separated 
by  commas. 

The  assigned  GO  TO  statement  transfers  control  to  the  statement  whose 
label  was  most  recently  assigned  to  the  variable  v.  See  Section  3.3 
on  the  ASSIGN  statement. 

The  GO  TO  statement,  the  associated  ASSIGN  statement (s) ,  and  the 
statements  to  which  control  is  transferred  must  be  executable 
statements  in  the  same  program  unit.  If  slist  is  used,  the  assigned 
value  of  V  must  be  a  member  of  slist. 

In  FORTRAN  IV-PLUS,  if  the  statement  label  value  of  v  is  not  present 
in  slist  (if  slist  is  specified),  control  is  transferred  to  the  next 
executable  statement  following  the  assigned  GO  TO  statement. 

Examples  of  assigned  GO  TO  statements  are: 

ASSIGN  200  TO  IGO 
GO  TO  IGO 
(This  example  is  equivalent  to  GO  TO  200.) 

ASSIGN  450  TO  IBEG 

GO  TO  IBEG,  (300,450,1000,25) 

(This  example  is  equivalent  to  GO  TO  450.) 
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4.2   IF  STATEMENTS 

An  IF  statement  transfers  control  or  executes  a  statement  only  if  a 
specified  condition  is  met.   The  two  types  of  IF  statements  are: 

•  Arithmetic  IF  statement 

•  Logical  IF  statement 

For  each  type,  the  decision  to  transfer  control  or  to  execute  the 
statement  is  based  on  the  evaluation  of  an  expression  contained  in  the 
IF  statement. 


4.2.1  Arithmetic  IF  Statement 

The   arithmetic   IF   statement   transfers   control   to   one   of   three 
statements,  based  on  the  value  of  an  arithmetic  expression. 


The  arithmetic  IF  statement  has  the  following  form: 
IF  (e)  si,  s2,  s3 


An  arithmetic  expression, 


sl,s2,s3 


Labels  of  executable  statements  in  the  same  program  unit, 


All  three  labels  (sl,s2,s3)  are   required, 
refer  to  three  different  statements. 


however,   they   need   not 


The  arithmetic  IF  statement  first   evaluates   the   expression   (e)   in 
parentheses.   Then, 


If  e  is; 


Control  passes  to; 


Less  than  0 


Equal  to  0 


Label  si 


Label  s2 


Greater  than  0 


Label  s3 


Some  examples  are: 

IF  (THETA-CHI)  50,50,100 

This  statement  transfers  control  to  statement  50  if  the  real  variable 
THETA  is  less  than  or  equal  to  the  real  variable  CHI.  Control  passes 
to  statement  100  only  if  THETA  is  greater  than  CHI. 


4-4 


f 


CONTROL  STATEMENTS 


IF  (NUMBER/2* 2-NUMBER)  20,40,20 

This  statement  transfers  control  to  statement  40  if  the  value  of  the 
integer  variable  NUMBER  is  even;  it  transfers  control  to  statement  20 
if  the  value  is  odd. 


4.2.2   Logical  IF  Statement 

The  logical  IF   statement   conditionally   executes   a   single   FORTRAN 
statement  based  on  the  evaluation  of  a  logical  expression. 

The  logical  IF  statement  has  the  following  form: 

IF  (e)  St 


St 


A  logical  expression, 


A   complete   FG»^TRAN   statement, 


The   statement   can 


be 


any 


executable   statement  except  a  DO  statement,  an  END  statement,  or 
another  logical  IF  statement. 

The  logical  IF  statement  first  evaluates  the  logical  expression  (e). 
If  the  value  of  the  expression  is  true,  the  statement  (st)  is 
executed.  If  the  value  of  the  expression  is  false,  control  transfers 
to  the  next  executable  statement  after  the  logical  IF  and  the 
statement  (st)  is  not  executed.  Note  that  e  must  yield  a  logical 
value. 

Examples  of  logical  IF  statements  are: 

IF  (J  .GT.  4  .OR.  J  .LT.  1)  GO  TO  250 

IF  (REF(J,K)  .NE.  HOLD)  REF(J,K)  =  REF ( J ,K) * (-1 . 5D0 ) 


LOGICAL  ENDHUN 

IF  (ENDRUN)  CALL  EXIT 


DO 


4.3   DO  STATEMENT 

The  DO  statement  specifies   iterative   processing   of   a   sequence  of 

statements.    The  sequence  of  statements  is  called  the  range  of  the  DO 

statement,  and  the  DO  statement  together  with  its  range   is   called  a 
"DO  loop." 

The  DO  statement  has  the  following  form: 

DO   s[,]    v=el,e2[,e3} 

s 

The   label   of   an   executable   statement.    The   statement   must 
physically  follow  in  the  same  program  unit. 
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An  integer  variable. 

el,e2,e3 

Integer  expressions. 

The  variable  v  is  called  the  control  variable;  el,  e2 ,  and  e3  are  the 
initial,  terminal,  and  increment  parameters,  respectively.  If  you 
omit  the  increment  parameter,  a  default  increment  value  of  1  is  used. 

s  identifies  the  terminal  statement  of  the  DO  loop.  The  terminal 
statement  must  not  be: 


•  a  GO  TO  statement 

•  An  arithmetic  IF  statement 

•  An  END  statement 

•  A  RETURN  statement 

•  A  DO  statement 


The  range  of  the  DO  statement  is  all  the  statements  that 
statement,  up  to  and  including  the  terminal  statement. 


follow  the  DO 


The  DO  statement  first  evaluates  the  expressions  el,  e2 ,  and  e3  to 
determine  values  for  the  initial,  terminal,  and  increment  parameters, 
respectively.  The  value  of  the  initial  parameter  is  assigned  to  the 
control  variable.  The  executable  statements  in  the  range  of  the  DO 
loop  are  then  executed  repeatedly.  The  exact  mechanism  is  explained 
in  Section  4.3.1. 

If  the  increment  parameter  (e3)  is  positive,   the   terminal   parameter 
(e2)   must   be   greater   than   or  equal  to  the  initial  parameter  (el). 
Conversely,  if  e3  is  negative,  e2  must  be  less  than  or   equal   to   el. 
The  increment  parameter  (e3)  cannot  be  0. 

The  number  of  executions  of  the  DO  range,  called  the  iteration  count, 
is  given  by: 


e2  -  el 


63 


+  1 


where  [X]  means  the  greatest  integer   in   X, 
integer  less  than  the  absolute  value  of  X  and 


that   is,   the   greatest 
with  the  same  sign. 


If  the  iteration  count  is  0  or  negative,  the  DO  loop  is  executed  once. 


In  FORTRAN  IV-PLUS,  V  can  be  a  real  or  double  precision  variable, 

el,   e2   and  e3  can  be  any  arithmetic  expressions.   If  necessary, 

are  converted  to  the  data  type  of  the   control   variable 

Note   that   if  the  data  type  of  the  control  variable  is  real  or  double 

precision,  the  number  of  iteritions  of  the  DO  range  might  not 

Is  expected  because  of  the  effects  of  floating-point  rounding. 


and 
they 
before   u&e. 
r  double 
be  what 
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4.3.1   DO  Iteration  Control 

After  each  execution  of  the  DO  range,  the  following  actions  are  taken: 

1.  The  value  of  the  increment  parameter  is  algebraically  added 
to  the  control  variable. 

2.  The  iteration  count  is  decremented  by  1. 

3.  If  the  iteration  count  is  greater  than  0,  control  transfers 
to  the  first  executable  statement  after  tiie  DO  statement  for 
another  iteration  of  the  range. 

4.  If  the  iteration  count  is  0,  execution  of  the  DO  statement 
terminates. 


You  can  also   terminate  execution   of   a   DO   statement   by   using   a 

statement   within   the  range  that  transfers  control  outside  the  loop. 

The  control  variable  of  the  DO  statement  remains  defined  with  its 
current  value. 

When  execution  of  a  DO  loop  terminates,  if  other  DO  loops  share  its 
terminal  statement,  control  transfers  outward  to  the  next  outer  DO 
loop  in  the  DO  nesting  structure  (see  Section  4.3.2).  If  no  other  DO 
loop  shares  the  terminal  statement,  or  if  this  DO  loop  is  outermost, 
control  transfers  to  the  first  executable  statement  after  the  terminal 
statement. 


You  cannot  alter  the  value  of  the  control  variable  within  the  range  of 
the  DO  loop.  However,  you  can  reference  the  control  variable  for 
other  purposes  in  statements  within  the  range. 

The  range  of  a  DO  statement  can  contain  other  DO  statements,  as  long 
as  these  nested  DO  loops  meet  certain  requirements.  See  Section 
4.3.2. 


You  cannot  transfer  control  into  the  range  of  a  DO   loop.    Exceptions 
to  this  rule  are  described  in  Sections  4.3.3  and  4.3.4. 


In  FORTRAN  IV-PLUS,  you  can  modify  variables  holding  the  initial, 
terminal,  or  increment  parameters  within  the  loop  without  affecting 
the  iteration  count. 

Examples  of  DO  statements  follow. 

Valid 


DO  100  K=l,50,2 

This   statement   specifies   25   iterations;    K'49   during   the   final 
iteration. 

DO  350  J=50,-2,-2 

This  statement   specifies  27   itarations;   J=-2  during   the   final 
iteration. 

DO  2b  IVAR=1,5 

This  statement   specifies   5   iterations;    IVAR=5  during   the   final 
iteration. 
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Invalid 

DO  NUMBER=5,40 ,4     (the  statement  label  is  missing) 

DO  40  M=2.10        (a  decimal  point  has  been  typed  for  a  comma) 

Note  that  in  the  last  invalid  example,  the  statement 
D040M  =  2.10 

is  Ln   unintentionally  valid  arithmetic  assignment  statement. 


4.3.2  Nested  DO  Loops 

A  DO  loop  can  include  one  or  more  complete  DO  loops.  The  range  of  an 
inner-nested  DO  loop  must  lie  completely  within  the  range  of  the  next 
outer  loop.  Nested  loops  can  share  a  terminal  stateuient.  Figure  4-1 
illustrates  nested  loops. 


Correctly  Nested 
DO  Loopc 

Incorrectly  Nested 
DO  Loops 

- 

DO  45  K=l,10 

• 
• 

DO  35  L=2,50,2 

• 
• 

_  35  CONTINUE 

• 
• 

DO  45  M=l,20 

• 
• 

_  45  CONTINUE 

DO  15  K=l,10 

• 
• 

DO  25  L=l,20 

• 
—            • 

15   CONTINUE 

• 
• 

DO  30  M=l,15 

• 
• 
• 

25   CONTINUE 

• 
• 

_ 30   CONTINUE 

Figure  4-1   Nested  DO  Loops 


4.3.3  Control  Transfers  in  DO  Loops 

Within  a  nested  DO  loop,  you  can  transfer  ccntrol  from  an  inner  loop 
to  an  outer  loop;  however,  a  transfer  from  an  outer  loop  to  an  inner 
loop  is  not  permitted. 

If  two  or  more  nested  DO  loops  share  the  same  terminal  statement,  you 
can  transfer  control  to  that  statement  only  from  v%Ithin  the  range  of 
the  innermost  loop.  Since  the  shared  terminal  statement  is  part  of 
the  innermost  loop,  any  transfer  to  the  terminal  statement  from  an 
outer  loop  is  an  invalid  transfer. 
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4.3.4  Extended  Range 

A  DO  loop  has  an  extended  range  if  it  contains  a  control  statement 
that  transfers  control  out  of  the  loop  and  if,  after  execution  of  one 
or  more  statements,  another  control  statement  returns  control  back 
into  the  loop.  Thus,  the  range  of  the  loop  is  extended  to  include  all 
executable  statements  between  the  destination  statement  of  the  first 
transfer  and  the  statement  that  returns  control  to  the  loop. 

The  following  rules  govern  the  use  of  a  DO  statement  extended  range: 

1.  A  transfer  into  the  range  of  a   DO   statement   is   permitted 
only  from  its  extended  range. 

2.  Statements  in  the  extended  range  must  not  change  the  control 
variable. 

Figure  4-2  illustrates  valid  and  invalid  extended  range  control 
transfers. 


Valid 
Control  Transfers 


DO 
Loop 


Extended 
Range 


DO  35  K=l,10 
DO  15  L=2,20 
GO  TO  2  0>. 
_  15   CONTINUE  ) 
20   A=B+C'*^^^ 

DO  3  5  M=l,15 
GO  TO  50s 
30   X=A*D- 
L  35   CONTINUE 

50   D=E/F 

GO  TO  3  0 


Invalid 
Control  Transfers 


Figure  4-2  Control  Transfers  and  Extended  Range 


CONTINUE 


4.4   CONTINUE  STATEMENT 

The  CONTINUE  statement  transfers  control  to  the  next  executable 
statement.  It  is  used  primarily  as  the  terminal  statement  of  a  DO 
loop  when  that  loop  would  otherwise  end  with  a  prohibited  control 
statement  such  as  a  GO  TO  or  arithmetic  IF. 
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The  CONTINUE  statement  has  the  following  form: 
CONTINUE 


CALL 


4.5   CALL  STATEMENT 

The  CALL  statement  executes  a  SUBROUTINE  subprogram  or  other   external 

procedure.    It   can  also  specify  an  argument  list  for  the  subroutine. 

(See  Chapter  6  for  greater  detail  on   the   definition  and   use   of   a 
subroutine) . 

The  CALL  statement  has  the  following  form: 
CALL  s[( [a]  [,  [a]]  ...) ] 

8 

The  name  of  a  SUBROUTINE  subprogram  or  other  external  procedure; 
or  a  dummy  argument  associated  with  a  SUBROUTINE  subprogram  or 
other  external  procedure. 


An  actual  argument.   (Section  6.1  describes  actual  arguments.) 

If  you  specify  an  argument  list,  the  CALL   statement   associates  the 

values   in   the   list  with  the  dummy  arguments  in  the  subroutine.  It 

then  transfers  control  to  the  first  executable  statement  of  the 
subroutine. 

The  arguments  in  the  CALL  statement  must  agree  in  number,  order,  and 
data  type  with  the  dummy  arguments  in  the  subroutine.  They  can  be 
variables,  arrays,  array  elements,  constants,  expressions,  Hollerith 
constants,  alphanumeric  literals,  or  subprogram  names.  An 
unsubscripted  array  name  in  the  argument  list  refers  to  the  entire 
array. 

Examples  of  CALL  statements  are: 

CALL  CURVE  (BASE , 3 . 1 41 59+X ,Y ,LIMIT ,R ( LT+2) ) 

CALL  PNTOUT  (A,N,'ABCD') 

CALL  EXIT 


RETURN 


4 . 6   RETURN  STATEMENT 

The  RETURN  statement  is  used  to  return  control  from   a   subprogram   to 
the  calling  program.   It  has  the  following  form: 

RETURN 
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When  a  RETURN  statement  is  executed  in  a  function  subprogram,  control 
is  returned  to  the  statement  that  contains  the  function  reference  (see 
Chapter  6)  .  When  a  RETURN  statement  is  executed  in  a  subroutine 
subprogram,  control  is  returned  to  the  first  executable  statement 
following  the  CALL  statement. 

RETURN  statement  example: 


SUBROUTINE  SIZCHK 

(N,K) 

IF  (N)  10,20,30 

10 
20 

K=-l 
RETURN 
K=0 
RETURN 

30 

K=+l 

RETURN 

END 

PAUSE 


4 . 7   PAUSE  STATEMENT 

The   PAUSE   statement   temporarily   suspends   program  execution    and 
displays  a  message  on  the  terminal  to  permit  you  to  take  some  action. 

The  PAUSE  statement  has  the  following  form: 

PAUSE   [disp] 


disp 


An  alphanumeric  literal,  a  decimal  digit  string  of 
digits,  or  an  octal  constant. 


one   to   five 


The  disp  argument  is  optional.  The  effect  of  a  PAUSE  statement 
depends  on  how  your  program  is  being  executed.  If  it  is  running  as  a 
batch  job,  the  contents  of  disp  are  written  to  the  system  output  file 
but  the  program  is  not  suspended. 

If  the  program  is  running  in  interactive  mode,  the  contents  cf  disp 
are  displayed  at  your  terminal,  followed  by  the  ^-rompt  sequence 
indicating  that  the  program  is  suspended;  you  should  then  enter  a 
control  command,  after  which  execution  resumes  with  the 
executable  statement  following  the  PAUSE.  Because  the 
specific  to  the  operating  system,  it  is  not  given  here,, 

Some  examples  of  PAUSE  statements  are: 


first 
command   is 


PAUSE 


999 


PAUSE 


'MOUNT  NEXT  TAPE' 


STOP 


4 . 8   STOP  STATEMENT 

The  STOP  statement  terminates  program  execution  and  returns  control 
the  operating  system. 


to 


4-11 


CONTROL  STATEMENTS 


The  STOP  statement  has  the  following  form: 
STOP   [clisp] 

disp 

An  alphanumeric  literal,  a  decimal  digit  string  of   one   to   five 
digits,  or  an  octal  constant. 


The  disp  argument,  if  present,  specifies  a   message   to   be   displayed 
when  execution  stops. 

Examples  of  STOP  statements  are: 

STOP  ^8 

STOP  'END  OF  RUN' 

STOP 


END 


4  .9   ENS  STATEMENT 

The  END  statement  marks  the  end  of  a  program  unit.  It  must  be  the 
last  source  line  of  every  program  unit. 

The  END  statement  has  the  following  form: 

END 

The  END  statement  must  not  occur  on  a  continuation  line  or  be 
CO  itinued. 

In  a  main  program,  if  no  STOP  statement  prevents  execution  from 
reaching  the  END  statement,  program  execution  terminates.  In  a 
subprogran,  a  RETURN  statement  is  implicitly  executed. 


• 
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CHAPTER  5 
SPECIFICATION  STATEMENTS 


Specification  statements  are  nonexecutable  statements  that  let  you 
allocate  and  initialize  variables  and  arrays,  and  define  other 
characteristics  of  the  symbolic  names  used  in  the  program. 

The  specification  statements  are: 

•  IMPLICIT   statement  —  specifies   the   implied   data   type   of 
symbolic  names 

•  Type  declaration   statement  —  explicitly   declares   the   data 
type  of  specified  symbolic  names 

•  DIMENSION  statement  —  declares  the  number  of  dimensions  in  an 
array  and  the  number  of  elements  in  each  dimension 


COMMON  statem( 
storage 


reserves  one  or  more  contiguous   areas   of 


•  VIRTUAL  statement  —  reserves  space  for  one  or  more  arrays   to 
be  located  outside  normal  program  storage 

•  EQUIVALENCE  statement  —  associates  two  or  more  entities   with 
the  same  storage  location 

•  EXTERNAL  statement  —  declares  the  specified  symbolic  names  to 
be  external  procedure  names 

•  DATA  statement  —  assigns  initial  values  to  variables,  arrays, 
and  array  elements  before  program  execution 

•  PARAMETER  Statement  —  assigns  a  symbolic  name  to  a   constant 
value 


•  PROGRAM  statement  —  assigns  a  symbolic  name  to  a  main  program 
unit 

•  BLOCK  DATA  statement  —  establishes  a  BLOCK  DATA  program  unit 
in  which  initial  values  may  be  assigned  to  entities  contained 
in  common  blocks 

The  following  sections  describe  these  statements,  giving   their   forms 
and  examples  of  their  usage. 


# 
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IMPLICIT 


5.1   IMPLICIT  STATEMENT 

By  default,  all  names  beginning  with  Lhe  letters  I  through  N  are 
interpreted  as  integer  data,  and  all  names  beginning  with  any  other 
letter  are  interpreted  as  real.  The  IMPLICIT  statement  permits  you  to 
change  these  default  data  typing  rules. 

The  IMPLICIT  statement  has  the  following  form: 

IMPLICIT  typ(a  [,a]  ..  .  )  [,typ(a  [,a]  ...)]..  . 

typ 

One  of  the  data  type  specifiers.   (See  Table  2-2.) 

An  alphabetic  specification  in  one  of  two  forms:    c   or   cl-c2, 

where   c  is  an  alphabetic  character.   The  latter  form  specifies  a 

range  of  letters,   from   cl   through   c2,  which   must   occur   in 
alphabetical  order. 

The  IMPLICIT  statement  assigns  the  specified  data  type  to  all  symbolic 
names  that  begin  with  any  specified  letter,  or  any  letter  in  a 
specified  range,  and  which  have  no  explicit  data  type  declaration. 
For  example: 

IMPLICIT  INTEGER  (I,J,K,L,M,N) 
IMPLICIT  REAL  (A-H,  0-Z) 

These  statements  specify  the  default  in  the  absence  of  any  explicit 
statement. 

IMPLICIT  statement:-  must  precede  all  other  specification  statements, 
except  PARAMETER  statc..;ants,  and  all  executable  statements. 

You  cannot  label  IMPLICIT  statements. 

Any  data  type  can  be  specified  in  an  IMPLICIT  statement,  as  the 
following  examples  show: 

IMPLICIT  DOUBLE  PRECISION  (D) 

IMPLICIT  COMPLEX  (S,Y),  LOGICAL*!  (L,A-C) 


TYPE  DECLARATION 


5.2   TYPE  DBCLARA-r 


.TATBMENTS 


The  type   declaration   statement   explicitly 
specified  symbolic  names. 


;ives   a   data   type   to 
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The  type  declaration  statement  has  the  following  form: 


typ 


typ  v[,v] 


One  of  the  data  type  specifiers  (see  Table  2-2) 


The  symbolic  name   of   a   variable, 


array, 


statement   function. 


function  subprogram,  or  an  array  declarator, 


The  following  rules  apply  to  a  ty.->e  declaration  statement: 

•  A  type  declaration  statement  must  precede  all  executable 
statements. 

•  You  can  declare  the  data  type  of  a  symbolic  P2me  only  once. 

•  You  cannot  label  a  type  declaration  statement. 

•  You  can  use  a  type  declaration  statement  to  declare  an  array 
by  appending  an  array  declarator  (see  Section  2.5.1)  to  an 
array  name. 

A  symbolic  name  can  be  followed  by  a  data  type  length  specifier  of  the 
form  *s,  where  s  is  one  of  the  acceptable  lengths  for  the  data  type 
being  declared  (see  Table  2-2).  Such  a  specification  overrides  the 
length  attribute  that  the  statement  implies,  and  assigns  a  new  length 
to  the  specified  item.  If  you  specify  both  a  data  type  length 
specifier  and  an  array  declarator,  the  data  type  length  specifier  goes 
first.   Examples  of  type  declaration  statements  are: 

INTEGER  COUNT,  MATRIX(4,4),  SUM 
REAL  MAN,IABS 
LOGICAL  SWITCH 

INTEGER*2  Q,  M12*4,  IVEC*4(10) 
REAL*8  WXl,  WX3*4,  WX5,  WX6*8 


DIMENSION 


5.3   DIMENSION  STATEMENT 

The  DIMENSION  statement  specifies  the  number  of  dimensions  in  an  array 
and  the  number  of  elements  in  each  dimension. 

The  DIMENSION  statement  has  the  following  form: 

DIMENSION  a(d)  [,a  (d)  ]  ..  . 

a(d) 

An  array  declarator  (see  Section  2.5.1). 

a 

The  symbolic  name  of  an  array. 


A  dimension  declarator. 
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The  DIMENSION  statement  allocates  one  storage  element  to  each  array 
element  in  each  dimension  of  each  array.  The  data  type  of  the  array 
determines  the  length  of  a  storage  element.  Moreover,  the  total 
number  of  storage  elements  assigned  to  an  array  is  equal  to  the 
product  of  its  dimension  declarators.   For  example: 

DIMENSION  ARRAY(4,4),  MATRIX ( 5 , 5 , 5) 

This  statement  defines  ARRAY  as  having  16  real  elements  of  4  bytes 
each,  and  defines  MATRIX  as  having  125  integer  elements  of  2  bytes 
each. 

You  can  also  use  array  declarators  in  type  declaration,  COMMON,  and 
VIRTUAL  statements.  However,  in  each  program  unit,  you  can  use  an 
array  name  in  only  one  array  declarator. 

You  cannot  label  DIMENSION  statements. 

Examples  of  DIMENSION  statements  are: 

DIMENSION  BUD(12,24,10) 
DIMENSION  X(5,5,5),Y(4,85),Z(100) 
DIMENSION  MARK(4,4  ,4  ,4) 

For  further  information  on  arrays  and  on  storing  array  elements,  see 
Section  2.5. 


COMMON 


5.4   COMMON  STATEMENT 

A  COMMON  statement  reserves  one  or  more  contiguous  blocks  of  storage. 
A  symbolic  name  identifies  each  block;  however,  you  can  omit  a 
symbolic  name  for  the  blank  common  block  in  a  program  unit.  COMMON 
statements  also  specify  the  order  of  variables  and  arrays  in  each 
common  block. 

The  COMMON  statement  has  the  following  form: 

COMMON  [/[cb]/]  nlist [[,]/[cb]/  nlist] .. . 

cb 

A  symbolic  name,  called  a  common  block  name.   cb   can   be   blank. 
If  the  first  cb  is  blank,  you  can  omit  the  first  pair  of  slashes. 

A  list  of  variable  names,   array   names,   and   array   declarators 
separated  by  commas. 

A  common  block  name  can  be  the  same  as  a  variable  or  array  name. 
However,  it  cannot  be  the  same  as  a  function  name,  subroutine  name  or 
entry  name  in  the  executable  program  (see  Section  2.1). 


nlist 
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When  you  declare  common  blocks  of  the  same  name  in  different  program 
units,  these  names  are  all  associated  with  the  same  storage  area  when 
the  program  units  are  combined  into  an  executable  program.  For 
example: 

PROGRAM  MAIN 

COMMON/BLOCK 1/ICOUN, I H0L/BL0CK2/ICHK 


CALL  GSUB 


END 


SUBROUTINE  GSUB 

C0MM0N/BL0CK2/JCHK ( 10) /BLOCKl/JCOUN ,JHOL 


END 

In  the  example,  BLOCKl  in  MAIN  and  BLOCKl  in  GSUB  are  associated  with 
the  same  storage  area,  as  are  the  BL0CK2s. 

You  can  have  only  one  blank  common  block  in  an  executable  program,  but 
you  can  have  any  number  of  named  common  blocks. 

Entities  are  assigned  storage  in  common  blocks  on  a  onc-for-one  basis. 
In  the  above  example,  ICOUN  and  JCOUN  are  associated  with  the  same 
storage  space  in  BLOCKl  because  they  each  occur  first  in  the  list. 

Entities  assigned  by  a  COMMON  statement  in  one  program  unit  should 
agree  in  data  type  with  entities  placed  in  one-to-one  correspondence 
with  them  in  the  same  common  block  by  another  program  unit.  For 
example,  if  one  program  unit  contains  the  statement 

COMMON  CENTS 

and  another  program  unit  contains  the  statement 

INTEGER* 2  MONEY 
COMMON  MONEY 

incorrect  results  may  occur  when  these  program  units  are  combined  into 
an  executable  program  because  the  2-byte  integer  variable  MONEY  is 
made  to  correspond  to  the  high-order  2  bytes  of  the  real  variable 
CENTS. 

You  must  not  assign  LOGICAL*!  or  (BYTE)  variables  or  arrays  to  a 
common  block  in  such  a  way  that  subsequent  data  of  any  other  type  is 
allocated  on  an  odd  byte  boundary.  The  compiler  supplies  no  filler 
space  for  common  blocks;  however,  all  common  blocks  are  allocated 
beginning  on  a  word  (even  byte)  boundary. 


Examples  of  COMMON  statements  follow. 
Main  Program 
COMMON  HEAT,X/BLK1/KIL0,Q 

CALL  FIGURE 


Subprogram 

SUBROUTINE  FIGURE 

COMMON  /BLK1/LIMA,R/  /ALFA, BET 


RETURN 
END 
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The  COMMON  statement  in  the  main  program  puts  HEAT  and  X  in  the  blank 
common  block,  and  puts  KILO  and  Q  in  a  named  common  block,  BLKl.  The 
COMMON  statement  in  the  subroutine  makes  ALFA  and  BET  correspond  to 
HEAT  and  X  in  the  blank  common  block,  and  makes  LIMA  and  R  correspond 
to  KILO  and  Q  in  BLKl. 


Valid  Usage 


L0GICAL*1  CHARS (9) 

COMMON/STRING/ILEN , CHARS 

Invalid  Usage 

L0GICAL*1  CHARS (9) 

COMMON/STRING/CHARS , I LEN 

In  the  second  example,  the  integer  variable  ILEN  is   allocated   on 
odd  byte  address. 


an 


VIRTUAL 


5.5   VIRTUAL  STATEMENT 

A  virtual  array  is  an  array  whose  storage  is  allocated  in  physical 
main  memory  outside  of  th'i  program's  directly  addressable  main  memory. 
The  use  of  virtual  arrays  in  a  program  frees  directlyaddressable 
n;omory  for  executable  code  and  other  data  storage. 


The  VIRTUAL  statement  specifies  a  virtual  array.  It 
number  of  dimensions,  and  the  number  of  elements  in 
The  VIRTUAL  statement  has  the  following  form: 


specifies   the 
each  dimension. 


a(d) 


VIRTUAL  a(d)  [,a(d)  ]  ... 


An  array  declarator  (see  Section  2.5.1). 


The  symbolic  name  of  an  array. 


A  dimension  declarator. 

The  maximum  total  directly  addressable  space  avciilable  to  user 
programs  executing  on  a  PDP-11  family  computer  is  64K,  or  65,536 
bytes.  An  array  can  have  a  maximum  of  32,767  elements  of  from  1  to  8 
bytes  per  element.  A  maximum  L0GICAL*1  array  of  1  byte  per  element 
would  require  32,767  bytes  of  storage  space.  A  maximum  COMPLEX  array 
of  8  bytes  per  element  would  require  262,136  bytes  of  storage  space,  a 
requirement  far  beyond  the  64K  limit  on  directly-addressable  memory. 
Virtual  arrays  are  placed  in  external  main  memory  without 
significantly  diminishing  the  64K  of  directly-addressable  memory 
available  to  programs. 
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NOTE 


Virtual  arrays  are  not  supported  on  all 
PDP-11  operating  systems.  See  the 
appropriate  PDP-11  FORTRAN  user's  guide 
for  more  information. 


Examples: 

VIRTUAL  A(IOOO),  LARG  (  180  ,  180  )  ,  MULT  (4,4,4,4,4,4,4) 

The  above  example  defines  a  one-dimensional  array  named  A  having  1000 
elements,  a  two-dimensional  array  named  LARG  having  32400  elements, 
and  a  seven-dimensional  array  named  MULT  having  16384  elements. 

The  data  type  of  a  virtual  array  is  specified  in  the  same  way  as  the 
data  type  of  any  other  variable  or  array,  that  is,  either  implicitly 
according  to  the  first  letter  of  the  name  or  explicitly  in  a  type 
declaration  statement. 

For  further  information  concerning  arrays  and  their  storage,  see 
Section  2.5. 


5.5.1  Restrictions  on  the  Use  of  Virtual  Arrays 

The  names  of  virtual  arrays  and  virtual  array   elements   must   not   be 
used  in  some  contexts: 


A  virtual  array  name  must  not  be  used  in  a 
(Section  5.4) . 


COMMON   statement 


2.  The  name  of  a  virtual  array  or  virtual  array  element  must  not 
be  used  in  an  EQUIVALENCE  statement  (Section  5.6). 

3.  A  virtual  array  or  virtual  array  element  cannot  be  assigned 
an  initial  value  by  a  DATA  statement  (Section  5.8). 

4.  Virtual  arrays  cannot  be  used  to  contain  run-time  format 
specifications  (Section  8.6).  Tl'-?  name  of  a  virtual  array  or 
virtual  array  element  must  not  c'u<.ear  as  a  format  specifier 
in  an  I/O  statement. 

5.  The  name  of  a  virtual  array  or  virtual  array  element  must  not 
be  specified  as  the  buffer  argument  (third  argument  inside 
parentheses)  of  an  ENCODE  or  DECODE  statement   Jection  7.6). 

6.  The  name  of  a  virtual  array  element  must  not  be  used  as  an 
actual  argument  to  a  subprogram  if  the  subprogram  assigns  a 
value  to  the  corresponding  dummy  argument  (Section  6.1). 

7.  The  name  of  a  virtual  array  or  virtual  array  element  cannot 
be  used  to  specify  the  NAME  keyword  in  an  OPEN  statement 
(Section  9.1  .13) . 

8.  The  name  of  a  virtual  array  cannot  be  used  to  specify  a  key 
expression  in  a  keyed  I/O  statement. 
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Examples: 

Valid  Usage 

VIRTUAL  A(IOOO) ,B(2000) 
READd,*)  A 
DO  10,1=1,1000 
10    B(I)=-A(I)*2 

WRITE(2,*)  (A(I)  ,1  =  1,1000) 
CALL  SUB  (A,B) 


Invalid  Usage 

VIRTUAL  A(10) 
DATA  A(l)/2.5/ 
COMMON  /X/   A 
EQUIVALENCE   (A(1),Y) 
WRITE(1,A)  X,Y 
ENCODE(4,100,A(3)  )   X,Y 


(used  in  DATA  statement) 
(Used  in  COMMON  statement) 
(Used  in  EQUIVALENCE  statement) 
(Used  as  format  specifier) 
(Used  as  ENCODE  output  buffer) 


5.5.2  Virtual  Array  References  in  Subprograms 

A  dummy  argument  declared  as  a  virtual  array  can  only  become 
associated  with  an  actual  argument  that  is  also  the  name  of  a  virtual 
array. 

An  actual  argument  that  is  a  reference  to  a  virtual  array  element  can 
become  associated  only  with  a  dummy  argument  declared  as  a  simple 
variable  (see  Section  2.4).  In  effect,  an  actual  argument  that  is  a 
virtual  array  element  is  treated  as  an  expression.  Furthermore,  a 
value  must  have  been  assigned  to  the  element  before  it  is  used  as  an 
actual  argi  ment.  The  subprogram  must  not  alter  the  value  of  the 
corresponding  dummy  argument. 

EXAMPLES: 

Valid  Usage 

VIRTUAL  A(IOOO) ,8(1000) 

B(3)=0.5 

CALL  SCALE(A,1000,B(3) ) 

END 

SUBROUTINE  SCALE  (X,N,W) 
VIRTUAL  X(N) 
S  =  0 

DO  10,  1=1, N 
10   S=S+X(I)*W 
TYPE  *,S 
END 


# 
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Invalid  Usage 

VIRTUAL  A(IOOO) 
REAL  B(4000) 
CALL  ABC  (A, B, A  (3)  ) 
END 


SUBROUTINE  ABC (X,Y,Z| 
REAL  X(IOOC) 
VIRTUAL  Y(4000) 
Z  =  2.3 
END 


(Actual  argument  is  virtual) 

(Actual  argument  is  nonvirtual) 

(Actual  argument  is  virtual  array 
element) 


EQUIVALENCE 


5.6   EQUIVALENCE  STATEMENT 

The  EQUIVALENCE  statement  partially  or  totally  associates  two  or  more 
entities  in  the  same  program  unit  with  the  same  storage  location. 

The  EQUIVALENCE  statement  has  the  following  form: 

EQUIVALENCE  (nlist)  [ ,  (nl i st ) ] . . . 

nlist 

A  list  of  variables,  array   elements,   and   arrays   separated   by 
commas.   You  must  specify  at  least  two  entities  in  each  list. 

The  EQUIVALENCE  statement  allocates  all  of  the  entities  in  each  list 
beginning  at  the  same  storage  location. 

In  an  EQUIVALENCE  statement,  each  expression  in  a  subscript  reference 
must  be  an  integer  constant. 

In  FORTRAN  IV-PLUS,,  subscript  expressions  may  be  integer  constant 
expressions. 

Dummy  arguments,  virtual  arrays,  and  virtual  array  elements  may  not  be 
used  in  an  EQUIVALENCE  statement. 

You  must  not  equivalence  L0GICAL*1  arrays  with  other  elements  in  such 
a  way  that  subsequent  data  of  any  other  type  is  allocated  on  an  odd 
byte  boundary. 

An  array  name  used  in  an  EQUIVALENCE  statement  refers  to  the  first 
element  of  the  array. 

You  can  equivalence  variables  of  different  numeric  data  types,  such 
that  each  entity  begins  at  the  same  address.  Furthermore,  you  can 
store  multiple  components  of  one  data  type  with  a  single  component  of 
a  higher-ranked  data  type.  For  example,  if  you  make  an  integer 
variable  equivalent  to  a  complex  variable,  the  integer  variable  shares 
storage  with  the  real  part  of  the  complex  variable. 
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Examples  of  EQUIVALENCE  statements  are: 
Valid  Usage 

DOUBLE  PRECISION  DVAR 
INTEGER*2   IARR(4) 
EQUIVALENCE  (DVAR , I ARR ( 1) ) 

This  EQUIVALENCE  statement  makes  the  four  elements  of  the  integer 
array  lARR  occupy  the  same  storage  as  the  double  precision  variable 
DVAR . 

Invalid  Usage 

L0GICAL*1  BYTES(IO) 
EQUIVALENCE  (ILEN,  BYTS(S)) 

In  the  above  example,  the  integer  variable  ILEN  is  allocated  on  an  odd 
byte  address. 


5.6.1  Making  Arrays  Equivalent 

When  you  make  an  element  of  one  array  equivalent  to  an  element  of 
another  array,  the  EQUIVALENCE  statement  also  sets  equivalences 
between  the  corresponding  elements  of  the  two  arrays.  Thus,  if  the 
first  elements  of  two  equal-sized  arrays  are  made  equivalent,  both 
arrays  share  the  same  storage  space.  If,  for  example,  the  third 
element  of  a  7-element  array  is  made  equivalent  to  the  first  element 
of  another  array,  the  last  five  elements  of  the  first  array  overlap 
the  first  five  elements  of  the  second  array. 

You  must  not  use  the  EQUIVALENCE  statement  to  assign  the  same  storage 
location  to  two  or  more  elements  of  the  same  array.  You  also  must  not 
attempt  to  assign  memory  locations  in  a  way  that  is  inconsistent  with 
the  normal  linear  storage  of  array  elements.  For  example,  you  cannot 
make  the  first  element  of  one  array  equivalent  to  the  first  element  of 
another  array  and  then  attempt  to  set  an  equivalence  between  the 
second  element  of  the  first  array  and  the  sixth  element  of  the  other 
array. 

Some  examples  of  the  use  of  the  EQUIVALENCE  statement  follow. 

DIMENSION  TABLE  (2,2),  TRIPLE  (2,2,2) 
EQUIVALENCE  (TABLE(2,2),  TRIPLE ( 1 , 2 , 2 ) ) 

As  a  result  of  these  statements,  the  entire  array  TABLE  shares  part  of 
the  storage  space  allocated  to  array  TRIPLE.  Figure  5-1  shows  how 
these  statements  align  the  arrays. 
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Array  TRIPLE 

Array  TABLE 

Array 
Element 

Element 
Number 

Array 
Element 

Element 
Number 

TRIPLE(1,1 ,1) 
TRIPLE(2,1,1) 
TRIPLE(1,2,1) 
TRIPLE(2,2,1) 
TRIPLE(1,1,2) 
TRIPLE(2,1,2) 
TRIPLE(1,2,2) 
TRIPLE(2,2,2) 

1 
2 
3 
4 
5 
6 
7 
8 

TABLE (1,1) 
TABLE(2,1) 
TABLE(1,2) 
TABLE(2,2) 

1 
2 
3 
4 

Figure  5-1   Equivalence  of  Array  Storage 


The  following  statements  also  align  the  two  arrays  as  shown  in  Figure 
5-1: 

EQUIVALENCE  (TABLE , TRIPLE ( 2  ,2 , 1 ) ) 
EQUIVALENCE  (TRIPLE ( 1 ,1  ,2 )  ,  TABLE(2,1)) 

In  the  EQUIVALENCE  statement  only,  you  can  identify  an  array  element 
with  a  single  subscript  (that  is,  the  linear  element  number),  even 
though  the  array  was  defined  as  a  multidimensional  array.  For 
example,  the  following  statement  aligns  the  two  arrays  as  shown  in 
Figure  5-1: 

EQUIVALENCE  (TABLE(4),  TRIPLE(7)) 

Similarly,  you  can  make  arrays  equivalent  with  nonunity  lower  bounds. 
For  example,  an  array  defined  as  A(2:3,4)  is  a  sequence  of  eight 
values.  A  reference  to  A (2,2)  refers  to  the  third  element  in  the 
sequence.  To  make  array  A(2:3,4)  share  storage  with  array  B(2:4,4), 
you  can  use  the  statement 

EQUIVALENCE  (A(3,4),  8(2,4)) 

The  entire  array  A  shares  part  of  the  storage  space  allocated  to  array 
B.   Figure  5-2  shows  how  these  statements  align  the  arrays. 


Array  B 

Array  A 

Array 

Element 

Array 

Element 

Element 

Number 

Element 

Number 

B(2,l) 

1 

1-T-'    ■'■■"■-■L';'. ■■  :•  ■•■  -3 

B(3,l) 

2 

B(4,l) 

3 

"   A{2,1) 

1 

B(2,2) 

4 

A(3,l) 

2 

B(3,2) 

5 

A(2,2) 

3 

3(4,2) 

6 

A(3,2) 

4 

B(2,3) 

7 

\                A(2,3) 

5 

B(3,3) 

8 

A(3,3) 

6 

B(4,3) 

9 

A(2,4) 

7 

B(2,4) 

10  -  -  -  -- 

A(3,4) 

8 

3(3,4) 

11 

-.■  - 

(3(4,4) 

12 

■■'■       ■  .:■     .        ..       .        -.:: 

Figure  5-2 
Equivalence  of  Arrays  with  Nonunity  Lower  Bounds 
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The  following  statements  also  align  the  arrays  as  shown  in  Figure  5-2 

EQUIVALENCE  (A,B(4,1)) 
EQUIVALENCE  (B(3,2),  A  (3)) 


5.6.2   Extending  Common  Blocks 

When  you  make  entities  equivalent  to  other  entities  stored  in  a  common 
block,  the  common  block  can  be  extended  beyond  its  original  boundaries 
to  include  the  entities  specified  in  the  EQUIVALENCE  statement.  But 
you  can  extend  the  common  block  only  beyond  the  last  element  of  the 
previously  established  common  block.  You  cannot  extend  the  common 
block  in  such  a  way  as  to  place  the  extended  portion  before  the  first 
element  of  the  existing  common  block.  The  following  ey  ,)les  show 
valid  and  invalid  extensions  of  the  common  block: 


Valid 

DIMENSION  A(4) ,8(6) 

COMMON  A 

EQUIVALENCE  (A(2),B(1)) 


A(l) 


A(2) 


B(l) 


A(3) 


B(2) 


A(4) 


B(3) 


B(4) 


B(5) 


B(6) 


_^^ 


Existing 
Common 


Extended 
Portion 


Invalid 

DIMENSION  A(4) ,B(6) 

COMMON  A 

EQUIVALENCE  (A(2),B(3)) 


B(l) 


A(l) 


B{2) 


A(2) 


B(3) 


A(3) 


B(4) 


A(4) 


B(5) 


B(6) 


Extended 
Portion 


Existing  Common 


Extended 
Portion 


If  you  assign  two  entities  to  common   blocks,   you   cannot   make   them 
equivalent  to  each  other. 


EXTERNAL 


5.7   EXTERNAL  STATEMENT 

The  EXTERNAL  statement  lets  you  use  external  procedure  names  as  actual 
arguments  to  other  subprograms. 

An  external  procedure  can  be  a  user-supplied   function   or   subroutine 
subprogram  (Section  6.2)  or  a  FORTRAN  library  function  (Section  6.3). 

The  EXTERNAL  statement  has  the  following  form: 

EXTERNAL  V  [,v] . . . 


The  symbolic  name  of  a  subprogram  or  the  name  of  a  dummy  argument 
associated  with  a  subprogram  name. 
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The  EXTERNAL  statement  declares  that  each  name  in  the  list  is  an 
external  procedure  name.  Such  a  name  can  then  appear  as  an  actual 
argument  to  a  subprogram;  the  subprogram  can  use  the  associated  dummy 
argument  name  in  a  function  reference  or  CALL  statement. 

Note,  however,  that  a  complete  function  reference  used  as  an  argument 
(for  example,  SQRT(B)  in  CALL  SUBR (A ,SQRT (B ) ,C) )  represents  a  value, 
not  a  subprogram  name.  The  function  name  need  not  be  defined  in  an 
EXTERNAL  statement. 


An  example  of  the  EXTERNAL  statement  isj 
Main  Program 
EXTERNAL  SIN ,COS ,S INDEG 


CALL  TRIG  (ANGLE, SIN, SINE) 


CALL  TRIG  (ANGLE, COS, COSINE) 


CALL  TRIG  (ANGLE, SINDEG, SINE) 


Subprograms 

SUBROUTINE  TRIG  (X,F,Y) 

EXTERNAL  F 

Y  =  F(X) 

RETURN 

END 


FUNCTION 
SINDEG  = 
RETURN 
END 


SINDEG  (X) 

SIN  (X*3. 14159/180) 


In  the  example,  SIN  and  COS  are  trigonometric  functions  supplied  in 
the  FORTRAN  library,  and  SINDEG  is  a  user-supplied  function.  The  CALL 
statements  pass  the  name  of  a  function  to  the  subroutine  TRIG.  The 
function  reference  F(X)  subsequently  invokes  the  function  in  the 
second  statement  of  TRIG.  Depending  on  which  CALL  statement  invoked 
TRIG,  the  second  statement  is  equivalent  to  one  of  the  following: 

Y  =  SIN(X) 

Y  =  COS(X) 

Y  =  SINDEG  (X) 

In  FORTRAN  IV-PLUS  an  asterisk  (*)  may  precede  a  name  in  the  list; 
the  name  then  identifies  a  user-supplied  function  or  subprogram,  not  a 
FORTRAN  library  function.  Use  the  asterisk  only  when  a  user-supplied 
function  or  subprogram  has  the  same  name  as  that  of  s  FORTRAN  library 
function.  (See  Section  6.3  for  additional  information  on  FORTRAN 
library  functions.) 

For  example: 

EXTERNAL  *SIN,  *COS 

identifies  the  names  SIN  and  COS  as  user-supplied  subprograms  and  not 
the  FORTRAN  library  functions  for  the  sine  and  cosine. 
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DATA 


5 . 8   DATA  STATEMENT 

The  DATA  statement  assigns  initial  values  to   variables,   arrays,   and 
array  elements  before  program  execution. 

The  DATA  statement  has  the  following  form: 

DATA  nlist/clist/[ [ , ] nli st/clist/] . . . 

nlist 

A  list  of  one  or  more  variable  names,  array  names,  or  array 
element  names,  separated  by  commas,  to  which  the  valu?s  in  clist 
are  to  be  assigned  sequentially  on  a  one-for-one  basis. 
Subscript  expressions  must  be  integer  constants. 


clist 


A  list  of  constants,  separated   by   commas,   to   be   assigned   to 
nlist.   Clist  constants  have  one  of  the  following  forms: 

val 

n  *  val 


n 

Used  when  you  specify  clist  as  n  *  val.  Specifies  the  number  of 
times  the  same  value  is  to  be  assigned  to  successive  entities  in 
the  associated  nlist.  The  value  of  n  is  a  nonzero,  unsigned 
integer  constant. 

Subscript  expressions  and  constant  values  may  be  integer  constant 
expressions. 

The  DATA  statement  assigns  the  constant  values  in  each  clist  to  the 
entities  in  the  preceding  nlist.  Values  are  assigned  one  for  one  in 
the  order  in  which  they  appear,  from  left  to  right. 

The  number  of  constants  must  correspond  exactly  to  the  number  of 
entities  in  the  preceding  nlist. 

When  an  unsubscr ipted  array  name  appears  in  nlist,  values  are  assigned 
to  every  element.  The  associated  constant  list  must  therefore  contain 
enough  values  to  fill  the  array.  Array  elements  are  filled  in  the 
order  of  subscript  progression. 

Dummy  arguments,  virtual  arrays,  and  virtual  array  elements  may  not  be 
initialized  in  DATA  statements. 

In  FORTRAN  IV-PLUS,  the  constant  value  is  converted,  if  necessary,  to 
the  data  type  of  the  variable  being  initialized. 
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When  a  Hollerith  constant  or  alphanumeric  literal  is  assigned  to  a 
variable  or  array  element,  the  number  of  characters  that  can  be 
assigned  depends  on  the  data  type  of  the  component  (see  Table  2-2) . 
If  the  constant  contains  fewer  characters  than  the  capacity  of  the 
variable  or  array  element,  the  constant  is  extended  on  the  right  with 
spaces.  If  the  constant  contains  more  characters  than  can  be  stored, 
the  constant  is  truncated  on  the  right. 

Examples  of  the  DATA  statement  are: 

INTEGER  A(10) 

BYTE  BE'.L,TAB,LF,FF,ACHR,ZCHR 

DATA  A,  BELL, TAB, LP, FF  /10*0 ,7 ,9 ,10 ,12 , ' A' , IHZ/ 

In  the  example,  the  DATA  statements  assign  0  to  all  10  elements  of 
array  A,  and  the  ASCII  control  character  codes  are  assigned  to  the 
byte  variables  BELL,  TAB,  LF,  FF. 

Some  other  examples  are: 

REAL  X(5) 
COMPLEX  Z 
DATA  X/2*-3.,4.,2*0.37/,Z/(1.0,-3.0)/ 


PARAMETER 


5.9   PARAMETER  STATEMENT 

The  PARAMETER  Statement  assigns  a  symbolic  name  to  a  constant. 
The  PARAMETER  Statement  has  the  following  form: 
PARAMETER   p=c   [,p=c]  ...     -^^vj  ;^>>, 


A  symbolic  name. 


::«•-■■ 


A   constant.  ;.  4,:  ,^   ,\::C:/,S^^..^:v-.ii'-.V-v  ■;;■'=   ^';V:. 

Each  symbolic  name  (p)  becomes  a  constant  and  is  defined  as  the  value 
of  the  constant  (c) ;   c  can  be  any  valid  FORTRAN  constant. 

Once  a  symbolic  name  is  defined  as  a  constant,  it  can  appear  in  any 
position  in  which  a  constant  is  allowed.  The  effect  is  the  same  as  if 
the  constant,  instead  of  the  symbolic  name,  were  written  there. 

The  symbolic  name  of  a  constant  cannot  appear  as  part  of  another 
constant.  But  it  can  appear  as  a  real  or  imaginary  part  of  a  complex 
jonstant. 

The  PARAMETER  Statement  applies  only  to  the  program  unit  in  which  it 
appears.  A  symbolic  name  can  appear  only  once  in  a  PARAMETER 
statement  in  the  same  program  unit. 

The  constant  assigned  to  the  symbolic  name  determines  its  data  type. 
The  initial  letter  of  the  constant's  name  does  not  affect  its  type. 
Also,  you  cannot  specify  the  constant's  type  by  using  the  name  in  an 
explicit  type  declaration  statement. 
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Examples: 


PARAMETER   PI=3 . 1415927 ,  DPI=3 .141592653589793238D0 
PARAMETER   FLAG=.TRUE.,  LONGNAME='A  STRING  OF  25  CHARACTERS' 


PROGRAM 

5.10   PROGRAM  STATEMENT 

The  PROGRAM  statement  assigns  a  symbolic  name  to  a  main  program  unit. 
The  PROGRAM  statement  has  the  following  form: 
PROGRAM  nam 


nam 


A  symbolic  name. 


The  PROGRAM  statement  is  optional.  If  you  use  it,  it  must  be  the 
first  statement  in  the  main  program.  The  symbolic  name  must  not  be 
the  name  of  any  entity  within  the  main  program.  It  also  must  not  be 
the  same  as  the  name  of  any  subprogram,  entry,  or  common  block  in  the 
same  executable  program  (see  Section  2.1). 

The  PROGRAM  statement  must  not  have  a  statement  label. 


BLOCK  DATA 


5.11   BLOCK  DATA  STATEMENT 

The  BLOCK  DATA  statement  begins  a  special  type  of  program  unit  whose 
only  purpose  is  to  declare  common  blocks  and  to  define  data  in  common 
blocks.  Therefore,  the  BLOCK  DATA  program  unit  can  contain  only 
nonexecutable  statements. 

The  BLOCK  DATA  statement  has  the  following  form: 

BLOCK  DATA  [nam] 


nam 


A  symbolic  name. 


You  can   use   only   type 
EQUIVALENCE,   and   DATA 
The  last  statement  in  a 
statement. 


declaration,  IMPLICIT,  DIMENSION,  COMMON, 
statements  following  a  BLOCK  DATA  statement. 
BLOCK   DATA   program   unit   must   be   an   Et'D 


A  BLOCK  DATA  program  unit  must  not  contain  any  executable  statements. 
A  BLOCK  DATA  statement  must  not  have  a  statement  label. 

If  you  use  a  BLOCK  DATA  program  unit  to  initialize  any  entity  in  a 
common  block,  you  must  provide  a  complete  set  of  data  type 
specification  statements  for  all  the  entities  in  the  block,  even 
though  some  of  the  entities  are  not  assigned  an  initial  value  in  a 
DATA  statement.  You  can  use  the  same  BLOCK  DATA  program  unit  to 
define  initial  values  for  more  than  one  co:.tmon  block. 
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An  example  of  a  BLOCK  DATA  program  unit  is; 


BLOCK  DATA  BLKDAT 

INTEGER  S,X 

LOGICAL  T,W 

DOUBLE  PRECISION  U 

DIMENSION  R(3) 

COMMON  /AREA1/R,S,T,U/AREA2/W,X,Y 

DATA  R/1.0,2*2.0/,T/.FALSE./,U/0.214  537D-7/,W/.TRUE./,Y/3.5/ 

END 


In  the  example,   enough  information 

implicitly   declare   the  data   type 

blocks  AREAl  and  AREA2 .  Not  all  the 
statement. 


is  provided  to  explicitly  or 
of  every  variable  in  the  common 
variables   appear   in   the   DATA 
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A  subprogram  is  one  or  a  group  of  statements  that  define  a  computing 
procedure.  A  subprogram  is  invoked  when  a  statement  that  references 
the  subprogram  is  executed.  The  referencing  statement  is  located,  in 
some  cases,  in  the  same  program  unit  and,  in  other  cases,  in  a 
different  program  unit. 


Subprograms  are  of  two  kinds; 
of  the  FC/RTRAN  system. 


either  user-written  or  supplied  as  part 


User-v.i  i  ■  ^cn  .-uLprograms  are  of  three  kinds: 
•   statement  functions 


functions 


•  subroutines 

There  are  two  kinds  of  references  to  FORTRAN  library  functions: 

•  processor-defined  function  references 

•  generic  function  references 

In  many  cases,  the  program  that  references  the  subprogram  passes 
values,  called  actual  arguments,  to  the  subprogram,  which  uses  the 
actual  arguments  to  compute  the  results.  The  subprogram  specifies 
entities,  called  dummy  arguments,  to  receive  the  actual  arguments. 
Values  may  in  turn  be  passed  back  to  the  referencing  program. 

In  the  discussion  below.  Section  6.1  describes  actual  and  dummy 
arguments;  Section  6.2  describes  user-written  subprograms;  and 
Section  6.3  describes  system-supplied  subprograms. 


6.1   SUBPROGRAM  ARGUMENTS 


A  su 
subp 
ref  e 
defi 
on  a 
Each 
argu 
subp 
When 
argu 
one 


bpro 
rogr 
renc 
niti 

one 

du 

ment 

rogr 

the 
ment 
ref  e 


gram  argument  is  an  entity  which  passes  a  value  to  or  from  a 
am.  Actual  arguments  are  specified  in  the  statement 
ing  the  subprogram.  Dummy  arguments  are  specified  in  the 
on  of  the  subprogram  and  are  associated  with  actual  arguments 
-to-one  basis  when  control  is  transferred  to  the  subprogram, 
mmy  argument  takes  on  the  value  of  the  corresponding  actual 
;  and  any  value  assigned  to  the  dummy  argument  in  the 
am  also  is  assigned  to  the  corresponding  actual  argument, 
subprogram  returns,  the  association  of  actual  and  dummy 
s  ends.  There  is  no  retention  of  argument  association  from 
rence  of  a  subprogram  to  the  next. 
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For  example,  if  (I,J(3),4)  is  a  list  of  actual  arguments  and  (K,L,M) 
is  an  associated  list  of  dummy  arguments,  K  is  associated  with  I ,  L  is 
associated  with  J(3),  and  M  has  a  value  of  4. 


6.1.1   Rules  Governing  Subprogram  Arguments 

Actual  arguments  can  be  constants,  variables,  expressions,  arrays, 
array  elements,  or  subprogram  names.  Dummy  arguments  as  specified  in 
the  subprogram  definition  appear  as  unsubscr ipted  variable  names. 
Actual  arguments  must  agree  in  order,  number,  and  data  type  with  the 
dummy  arguments  with  which  they  are  associated. 

Dummy  arguments  are  symbolic  names  which  become  associated  with 
variables,  arrays,  or  subprograms  defined  or  declared  in  other  program 
units.  A  dummy  argument  is  undefined  if  it  is  not  currently 
associated  with  an  actual  argument. 

Although  dummy  arguments  are  not  variables,  arrays,  or  subprograms, 
each  dummy  argument  may  be  declared  as  though  it  were  a  variable, 
array,  or  subprogram.  Each  dummy  argument  name  is  declared  with  the 
attributes  of  the  associated  actual  argument. 

If  the  actual  argument  is  a  constant,  expression,  subprogram  name,  or 
virtual  array  element  reference,  the  corresponding  dummy  argument  may 
not  be  modified. 

A  dummy  argument  declared  as  an  array  can  be  associated  only  with  an 
actual  argument  that  is  an  array  or  array  element  of  the  same  data 
type.  If  the  actual  argument  is  an  array,  the  dummy  argument  array 
must  not  be  larger  than  the  actual  argument  array. 

If  the  actual  argument  is  an  array  element,  the  dummy  argument  array 
will  be  associated  with  elements  of  the  actual  argument  array  starting 
from  the  actual  argument.  In  this  case,  the  dummy  argument  array  must 
not  be  larger  than  the  number  of  elements  remaining  in  the  actual 
argument  array. 

Valid  Usage 

PROGRAM  MAIN 

DIMENSION  A(10)  ,  B  (5.5) 


CALL  X(A,  B(l,2)  ) 

END 

SUBROUTINE  X(Y,Z) 

DIMENSION  Y{10)  ,  Z  (5,2) 

END 


Invalid  Usage 


PROGRAM  MAIN 

DIMENSION  A(10)  ,  B  (5,5) 
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CALL  X(A,B(1,21) 

END 

SUBROUTINE  X{C,D) 

DIMENSION  C(12) 


DIMENSION  D(5,5) 
END 


(dummy  array  must  not  be  larger  than  actual 
array) 

(dummy  array  must  not  be  larger  than  number 
of  elements  remaining  in  actual  array) 


6.1.2   Adjustable  Arrays 

An  adjustable  array  is  a  dummy  argument  array  declared  in  a  subprogram 
with   dimensions   that   can   be   changed   or   "adjusted"   to  match  the 


dimensions  of  the  associated  actual  ar 


program. 


gument  array  in  the   referencing 


An   adjustable  array  declarator  contains  integer  variables 


as  well  as  constants,  in  the  dimension  declarators, 

The  following  rules  govern  the  use  of  adjustable  arrays: 

•   The   adjustable   array   must   be   a   dummy   argument   of 
subprogram. 


the 


The  adjustable  array  must  become   associated   with   an   actual 
argument  that  is  an  array,. 

e  adjustable  array  must  be  less  than  or  equal  to 


The  size  of  th 

the  size  of  the  actual  array 

Variables  in  the  adjustable  arra;j 
the  adjustable  dime 


declarator   that   represent 


nsions  must  be  of  the  integer  data  type. 

•  Variables  in  the  adjustable  array  declarator  must  be  dummy 
arguments  of  the  subprogram,  and  the  corresponding  actual 
arguments  must  have  a  defined  value. 

•  Variables  in  the  adjustable  array  declarator  must  be  defined. 
You  can  assign  values  to  the  variables  through  dummy  arguments 
or  through  common  blocks. 

•  Variables  in  the  adjustable  array  declarator  may  be  of  any 
data  type.  The  values  will  be  converted  to  integer  data  type 
before  use. 


For  example. 


PROGRAM  MAIN 

DIMENSION  Al(10,35),  A2(3,56) 

SUMl  =  SUM(A1,10,35) 

SUM2  =  SUM(A2,3,56) 

SUM3  =  SUM(A1  ,10,10) 


END 


FUNCTION  SUM(A,M,N) 
DIMENSION  A(M,N) 
SUM  =  0.0 
DO  10  J  =  1,N 
DO  10  I  =  1,M 
10  SUM  =  SUM  -I-  A(I,J) 
RETURN 
END 
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In  the  example,  Al  and  A2  are  actual  arrays  and  A  is  the  adjustable 
array.  The  function  subprogram  computes  the  sum  of  specified  sections 
of  Al  or  A2 .  Note  that  the  dummy  arguments  M  and  N  are  used  to 
control  the  DO  statement  iteration  as  well  as  to  specify  the  size  of 
A. 

For  more  information  on  array  declarators,  see  Section  2.5.1. 

Upper  and  lower  dimension  bound  values  can  be  specified  for  an 
adjustable  array.  These  values  do  not  change  during  the  execution  of 
that  subprogram  even  if  the  values  of  variables  contained  in  the  array 
declaration  are  changed.   For  example: 

DIMENSION  ARRAY  (11,5) 

L  =  9 

M  =  5 

CALL  SUB  (ARRAY, L,M) 

END 

SUBROUTINE  SUB(X,I,J) 
DIMENSION  X(-I/2:I/2,J) 
J  =  1 
1  =  2 

END 

In  this  example,  the  adjustable  array  X  is  declared  as  X(-4:4,5)  on 
entry  to  subroutine  SUB.  The  assignments  to  I  and  J  do  not  affect 
that  declaration. 

Note  that  argument  association  is  not  retained  between  one  reference 
to  a  subprogram  and  the  next  reference  to  that  subprogram. 

SUBROUTINE  S(A,I,J) 

DIMENSION  A(I) 

A(I)  =  J 

RETURN 

ENTRY  SI  (I,A,K,L) 

A(I)  =  A(I)  +  1 

RETURN 

END 

In  this  example,  B  is  a  real  array  with  10  elements: 

DIMENSION  B(10) 
The  following  statement  sets  B(2)=3: 

CALL  S(B,2,3) 
The  next  statement  increments  B(5)  by  1: 

CALL  SI (5,B,3,2) 


6.2   USER-WRITTEN  SUBPROGRAMS 

A  user-written  subprogram  is  a  FORTRAN  statement  or  group  of  FORTRAN 
statements  that  perform  a  computing  procedure.  A  computing  procedure 
can  be  a  series  of  either  arithmetic  operations  or  FORTRAN  statements. 
You  can  use  subprograms  to  perform  a  computing  procedure  in  several 
places  in  your  program,  and  thus  avoid  having  to  duplicate  the 
of  operations  or  statements  in  each  place. 


ser les 
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There  are  three  types  of  user-written  subprograms.  Table  6-1  lists 
each  type  of  subprogram,  the  statements  needed  to  define  it,  and  the 
method  of  transferring  control  to  the  subprogram. 


Table  6-1 
Types  of  User-Written  Subprograms 


Subprogram 


Statement 
function 

Function  subprogram 


S'l*-  routine  subprogram 


Defining  Statements 


Statement  function 
definition 

FUNCTION 

ENTRY 

RETURN 

SUBROUTINE 

ENTRY 

RETURN 


Control  Transfer 
Method 


Function  reference 


Function  reference 


CALL  statement 


A  function  reference  consists  of  the  function  name  and  the  function 
arguments  and  is  used  in  an  expression.  The  function  returns  a  value 
that  is  used  in  place  of  the  reference  in  the  expression  in  which  it 
appears. 

Function  and  subroutine  subprograms  can  change  the  values  of  their 
arguments  and  the  calling  program  can  use  the  changed  values. 

A  subprogram  can  refer  to  other  subprograms,  but  it  cannot,  either 
directly  or  indirectly,  refer  to  itself. 


6.2.1   Statement  Functions 

A  statement  function  is  a  single-statement  computation  specified  by  a 
symbolic  name.  When  you  reference  the  statement  function  name,  with 
its  arguments,  in  an  expression,  the  computation  defined  by  the 
statement  function  name  is  performed  and  the  resulting  value  replaces 
the  statement  function  name  in  evaluating  the  expression.  Statement 
functions  are  defined  and  referenced  within  a  single  program  unit. 

The  statement  function  definition  statement  has  the  following  form: 

f  ([p[,p]...])=e 


The  name  of  the  statement  function. 


A  dummy  argument. 


An  expression. 

The  expression  (e)  is  an  arithmetic  or  logical  expression  that  defines 
the  computation  to  be  performed. 
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A  statement  function  reference  has  the  following  form: 
f  ( [a  f,a]  ...]  ) 


The  name  of  the  function. 


An  actual  argument. 

Whjn  a  statement  function  reference   appears   in   an   expression,   the 
vilues  of  the  actual  arguments  are  associated  witli  the  dummy  arguments 


the   statement   function   definition 


The 


expression 


in 


the 


definition  is  then  evaluated.   The  resulting  value  is  used  to  complete 
the  evaluation  of  the  expression  containing  the  function  reference. 

The  following  rules  govern  the  use  of  statement  functions: 

•  Statement  function  names  must  be  unique  within  the  same 
program  unit. 

•  A  statement  function  reference  must  appear  in  the  same  program 
unit  as  its  definition. 

•  A  statement  function  definition  statement  can  include  a 
reference  to  another  statement  function,  which  must  be  defined 
earlier  in  the  same  program  unit. 

•  Statement  function  definitions  must  be  placed  before  all 
executable  statements  (see  Figure  1-3). 


The  data  type  of  the  resulting  value  assigned  to  the  name  is 
determined  either  implicitly  by  the  first  letter  of  the  name, 
or  explicitly  by  a  type  declaration  statement. 


Statement  function  dummy   arguments   serve 


only 


to 


indi  cate 


order ^ 
f  unct  ion , 


number 


and   data  type  of  arguments  for  the  statement 


Statement  function  dummy  argument  names  do  not  follow  the 
usual  tules  for  uniqueness  of  symbolic  names  {see  Section 
2.1).   Statement  function  dummy  arguments  must  be  unique   only 


w 


ithin   each   statement   function   definition 


Variables   or 


arrays  of  the   same   names 


IS   the   dummy   arguments   can   be 


declared  and  used  within  the  same  program  unit. 

•  The  data  type  of  statement  function  dummy  arguments  is 
determined  either  implicitly  by  the  first  letter  of  the  name, 
or  explicitly  by  a  type  declaration  statement. 

Examples  of  statement  function  definitions  are: 

Valid 

VOLUMfc:(RADIUS)     -    4 . 189 *RAD lUS* *  3 
AVG    (A,B,C)     =     (A  +  lUC)/3 


SINH  (X) 
Invalid 


{EXP(X) 


EXP     (-X))*0.5 


AXG(A,B,C,3.) 


{A+B+C)/3 


A    constant    cannot    be    a    dummy    argument 
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Examples  of  statement  function  references  follow.   The  examples   below 
refer  to  the  second  statemf^nt  function  definition  above. 

Valid 


GRADE  =  AVG  (TESTl ,TEST2 ,XLAB ) 

IF  (AVG  (P,D,Q) .LT.AVG(X,Y,Z) )G0  TO  300 

Invalid 

FINAL  =  AVG(TEST3,TEST4 ,LAB2) 

(An  actual  argument  and  its  corresponding  dummy  argument  must  agree  in 
data  type;   in  this  case,  LAB2  is  integer  but  C  above  is  real.) 


6.2.2   Function  Subprograms 

A  function  subprogram  is  a  program  unit  referenced  by  a  symbolic  name. 
When  you  reference  the  function  name,  with  its  arguments,  in  an 
expression,  the  program  unit  defined  by  the  function  name  is  executed; 
and  the  resulting  value  of  the  function  replaces  the  function  name  in 
evaluating  the  expression.  A  function  subprogram  consists  of  a 
FUNCTION  statement  followed  by  a  series  of  statements  that  define  a 
computing  procedure. 


The  FUNCTION  statement  has  the  following  form: 
[typ]  FUNCTION  nam [*m]  [ (  [p [ , p] . . . ] ) ] 

typ 

One  of  the  data  type  specifiers  (see  Table  2-2). 


nam 


m 


The  name  of  the  function. 


A  data  type  length  specifier  (see  Table  2-2). 


A  dummy  argument. 


A  function  reference  that  transfers  control  to  a   function   subprogram 
has  the  following  form: 

nam  (  [a  [,a]  . .  .  ]  ) 


nam 


The  symbolic  name  of  the  function. 


An  actual  argument. 

When  the  name  of  the  function  subprogram  is  used  in  an  expression, 
control  is  transferred  to  the  subprogram;  and  the  values  of  the 
actual  arguments  (if  any)  in  the  function  reference  are  associated 
with  the  dummy  arguments  (if  any)  in  the  FUNCTION  statement.  The 
statements  in  the  subprogram  are  then  executed.  A  value  must  be 
assigned   to   the   name   of  the  function  as  though  it  were  a  variable. 
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Finally,  a  RETURN  statement  is  executed  in  the  function  and  returns 
control  to  the  calling  program  unit.  An  END  statement  acts  as  an 
implied  RETURN.  The  value  assigned  to  the  function's  name  is  now  used 
to  complete  the  evaluation  of  the  expression  containing  the  name. 

The  follo\  ng  rules  govern  the  use  of  function  subprograms: 

•  The  FUNCTION  statement  must  be  the  first  statement  of  a 
function  subprogram. 

•  The  FUNCTION  statement  must  not  have  a  statement  label. 

•  A  function  subprogram  ',ust  not  contain  these  statements: 
SUBROUTINE,  BLOCK  DATA,   r  another  FUNCTION  statement. 

•  A  function  subprogram  can  reference  another  subprogram  but  it 
cannot  reference  itself  either  directly  or  indirectly. 

•  The  data  type  of  a  function  name  can  be  specified  either 
implicitly  or  explicitly  in  the  FUNCTION  statement  or  in  a 
type  declaration  statement. 

•  The  function  name  must  have  the  same  data  type  in  the 
subprogram  and  in  the  referencing  program. 

•  ENTRY  statements  can  be  included  in  a  function  subprogram  to 
provide  one  or  more  other  entry  points  (see  Section  6.2.4). 

An  example  of  a  function  subprogram  is: 

FUNCTION  ROOT(A) 
X  =  1.0 
2     EX  =  EXP(X) 

EMI  NX  =  l./EX 

ROOT  =  ( (EX+EMINX)*.5+C0S(X)-A)/((EX  -  EMINX) * . 5-SIN (X) ) 

IF  (ABS(X-ROOT) .LT.lE-6)  RETURN 

X  =  ROOT 

GO  TO  2 

END 

The  function  in  this  example  uses  the  Newton-Raphson  iteration   method 
to  obtain  the  root  of  the  following  function: 


F(X)  =  cosh(X)  +  cos(X)  -  A  =  0 

The  value  of  A  is  passed  as  an  argument, 
this  root  is: 


The   iteration   formula   for 


Xi+1  =  Xi  - 


cosh  (Xi)+cos (Xi)-A 
sinh(Xi)-sin(Xi) 


The  calculation  is  repeated  until  the  difference  between  Xi   and   Xi+1 
is  less  than  l.OE-6. 

The  function  uses  the  FORTRAN  library  functions  EXP,  SIN,  COS,  and  ABS 
(see  Section  6.3). 
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6.2.3   Subroutine  Subprograms 

A  subroutine  subprogram  is  a  program  unit  referenced  by  a  symbolic 
name.  When  you  reference  the  subroutine  name  in  a  CALL  statement,  the 
program  unit  defined  by  the  subroutine  name  is  executed.  In  contrast 
to  the  statement  function  and  function  subprogram,  no  value  is 
returned  to  the  subroutine  name.  A  subroutine  subprogram  consists  of 
a  SUBROUTINE  statement  followed  by  a  series  of  statements  that  define 
a  computing  procedure. 

The  SUBROUTINE  statement  has  the  following  form: 

SUBROUTINE  nam  [ ( [p [ , p] . . . ] ) ] 


nam 


The  name  of  the  subroutine. 


A  dummy  argument. 

You  must  use  a  CALL  statement  to  transfer  control  to  a  subroutine 
subprogram,  and  a  RETURN  statement  to  return  control  to  the  calling 
program  unit.   Section  4.5  describes  the  CALL  statement. 


When  control  is  transferred  to  the  subroutine,  the  values  of  the 
actual  arguments  (if  any)  in  the  CALL  statement  are  associated  with 
the  corresponding  dummy  arguments  (if  any)  in  the  SUBROUTINE 
statement.  The  statements  in  the  subprogram  are  then  executed. 
Finally,  a  RETURN  statement  is  executed  in  the  subroutine  and  it 
returns  control  to  the  calling  program.  An  END  statement  acts  as  an 
implied  RETURN. 

The  following  rules  govern  the  use  of  subroutine  subprograms: 

•   The  SUBROUTINE  statement  must  be   the   first   statement   of   a 
subroutine. 


The  SUBROUTINE  statement  must  not  have  a  statement  label. 


•  A  subroutine  subprogram  must  not   contain 
DATA,  or  another  SUBROUTINE  statement. 


a   FUNCTION,   BLOCK 


•  A  subroutine  subprogram  can  reference  another  subprogram,   but 
it  cannot  reference  itself  either  directly  or  indirectly. 

•  ENTRY  statements  can  be  included  in  a  subroutine  subprogram  to 
provide  one  or  more  other  entry  points  (see  Section  6.2.4). 


Example: 

The  subroutine  in  the  following  example  computes  the  volur.e  of  a 
regular  polyhedron,  given  the  number  of  faces  and  the  lencth  of  one 
edge.  It  uses  the  computed  GO  TO  statement  to  determine  wh«.'ther  the 
polyhedron  is  a  tetrahedron,  cube,  octahedron,  dodecahedron,  or 
icosahedron.  The  GO  TO  statement  also  transfers  control  to  the  proper 
procedure  for  calculating  the  volume.  If  the  number  of  faces  is  not 
4,  6,  8,  12,  or  20,  the  subroutine  displays  an  error  message  on  the 
user's  terminal. 

Main  Program 


COMMON  NFACES, EDGE, VOLUME 
ACCEPT  *,  NFACES, EDGE 
CALL  PLYVOL 
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TYPE    *,     •VOLUME=' , VOLUME 

STOP 

END 

Subroutine 

SUBROUTINE    PLYVOL 

COMMON    NFACES, EDGE, VOLUME 

CUBED    =    EDGE**3 

GOTO    (6,6,6,1,6,2,6,3,6,6,6,4,6,6,6,6,6,6,6,5)  , NFACES 

GOTO    6 

1  VOLUME    =    CUBED    *    0.11785 
RETURN 

2  VOLUME    =    CUBED 
RETURN 

3  VOLUME    =    CUBED    *    0.47140 
RETURN 

4  VOLUME    =    CUBED    *    7.66312 
RETURN 

5  VOLUME    =    CUBED    *    2.18170 
RETURN 

6  TYPE    100,    NFACES 

100  FORMATC  NO  REGULAR  POLYHEDRON  HAS  ',13,  '  FACES.'/) 
VOLUME=0.0 
RETURN 
END 


ENTRY 


6.2.4   ENTRY  Stateuent 

The  ENTRY  statement  provides  multiple  entry  points  within  a 
subprogram.  It  is  not  executable  and  can  appear  within  a  function  or 
subroutine  program  after  the  FUNCTION  or  SUBROUTINE  statement. 
Execution  in  the  subprogram  begins  with  the  first  executable  statement 
after  the  ENTRY  statement. 

The  ENTRY  statement  has  the  following  form: 

ENTRY  nam  [ ( [p [, p] . . . ] ) ] 

nam 

The  entry  name, 

p 

A  dummy  argument. 

Use  the  CALL  statement  to  refer  to  entry  names  within  subroutine 
subprograms.  Use  function  references  to  refer  to  entry  names  within 
function  subprograms. 

The  following  rules  govern  the  use  of  ENTRY  statements: 

•  Within  a  function  subprogram,  an  entry  name  can  appear  in  a 
type  declaration  statement. 

•  You  can  specify  an  entry  name  in  an  EXTERNAL  statement  and  use 
it  as  an  actual  argument;  you  cannot  use  it  as  a  dummy 
argument. 
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In  the  subprogram  in  which  an  ENTRY  statement  occurs,  you  must 
not  use  the  entry  name  in  executable  statements  that  precede 
the  ENTRY  statement. 

You  can  usp  dummy  arguments  in  ENTRY  statements  that  differ  in 
order,  number,  type,  and  name  from  the  dummy  arguments  you  use 
in  the  FUNCTION,  SUBROUTINE,  and  other  ENTRY  statements  in  the 
same  subprogram.  However,  each  reference  to  a  function, 
subroutine,  or  entry  must  use  an  actual  argument  list  that 
agrees  in  order,  number,  and  type  with  the  dummy  argument  list 
in  the  corresponding  FUNCTION,  SUBROUTINE,  or  ENTRY  statement. 


A  dummy  argument  can  be  referred  to  only  in  executable 
statements  that  follow  the  first  SUBROUTINE,  FUNCTION,  or 
ENTRY  statement  in  which  the  duimny  argument  is  specified. 

You  must  not  use  an  ENTRY  statement  within  a  DO  loop. 


6.2.4.1  ENTRY  in  Function  Subprograms  -  All  entry  names  within  a 
function  subprogram  are  associated  with  the  name  of  the  function 
subprogram.  Therefore,  a  value  assigned  to  any  one  of  the  names  is 
assigned  to  all  of  them.  However,  the  data  types  of  all  the 
associated  names  need  not  be  the  same.   Furthermore, 


Figure  6-1  illustrates  the  use  of  an  ENTRY  statement  in  a  function 
subprogram  that  computes  the  hyperbolic  functions  sinh,  cosh,  and  tanh 
of  a  variable  x. 


6.2.4.2  ENTRY  in  Subroutine  Subprograms  -  To  refer  to  an  entry  point 
name  in  a  subroutine,  execute  a  CALL  statement  that  includes  the  entry 
point  name  defined  in  the  ENTRY  statement.   For  example: 

Main  Program 

CALL  SUBA(A,B,C) 


Subroutine 


SUBROUTINE  SUB  (X,Y,Z) 


ENTRY  SUBA(Q,R,S) 

In  this  example,  the  CALL  is  to  an  entry  point  (SUBA)  within  the 
subroutine  (SUB).  Execution  begins  with  the  first  statement  following 
ENTRY  SUBA  (Q,R,S),  using  the  actual  arguments  (A,B,C)  passed  in  the 
CALL  statement. 
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PROGRAM  MAIN 

EXTERNAL  *TANH,  *SINH,  *COSH 


X  =  24.0 

TANHX  =  TANH  (X) 

SINHX  =  SINK  (X) 

COSHX  =  COSH  (X) 


END 


REAL  FUNCTION  TANH(X) 

STATEMENT  FUNCTION  TO  COMPUTE  TWICE  SINH 

TSINH(Y)  =  EXP(y)  -  EXP  (-Y) 

STATEMENT  FUNCTION  TO  COMPUTE  TWICE  COSH 

TCOSH(Y)  =  EXP(Y)  +  EXP(-y) 

COMPUTE  TANH 

TANH  =  TSINH{X)  /  TCOSH(X) 
RETURN 

COMPUTE  SINH 

ENTRY  SINH(X) 

SINH  =  TSINH(X)  /  2.0 

RETURN 

COMPUTE  COSH 

ENTRY  COSH(X) 

COSH  =  TCOSH(X)  /  2.0 

RETURN 

END 


Figure  6-1  Mutiple  Functions  in  a  Function  Subprogram 
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6.3   FORTRAN  LIBRARY  FUNCTIONS 

FORTRAN  library  functions  are  system-supplied  subprograms  referenced 
in  the  same  way  as  user-written  function  subprograms. 

For  example: 

R  =  3.14159  *  ABS(X-l) 

AEiS  is  a  FORTRAN  library  function.  As  a  result  of  this  reference,  the 
absolute  value  of  X-1  is  calculated  and  multiplied  by  the  constant 
3.14159;   the  result  is  assigned  to  the  variable  "^R. 

The  FORTRAN  library  functions  are  listed  in  Appendix  B,  whicn  also 
gives  the  data  type  of  each  library  function  and  of  the  actual 
arguments. 
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6.3.1   Processor-Defined  Function  References 

The  FORTRAN  library  functions  also  are  called  processor-defined 
functions.  Note  that  the  processor-defined  functions  include  both  the 
Intrinsic  Functions  and  the  Basic  External  Functions  described  in  ANS 
FORTRAN . 

Normally,  a  name  in  the  table  of  processor-defined  functions  irefers  to 
the  FORTRAN  library  function  with  that  name.  However,  the  name  can 
refer  to  a  user-defined  function  under  any  of  the  following 
condi  t ions: 


•  The  name  appears  in  a  type  declaration  statement  specifying   a 
different  data  type  from  that  shown  in  the  table. 

•  The  name  is  used  in  a  function  reference  with  arguments   of   a 
different  data  type  from  that  shown  in  the  table. 


•  The  name  is  prefixed  with   an   asterisk   and   appears   in  an 
EXTERNAL  statement.  '   > 

Except  when  they  are  used  in  an  EXTERNAL  statement  and  are  prefixed  by 
an  asterisk,  processor-defined  function  names  apply  only  to  the 
program  unit  in  which  they  are  referenced.  Thus,  they  can  be  used  for 
other  purposes  in  other  program  units.  In  addition,  the  data  type  of 
a  processor-defined  function  does  not  change  because  of  an  IMPLICIT 
statement. 


Use  of  a  processor-defined  function  name  in  an  EXTERNAL  statement  with 
an  asterisk  prefix  specifies  that  the  name  refers  to  a  function  or 
subroutine  that  you  will  provide  as  an  external  subprogram. 


6.3.2  Generic  Function  References 


Many  of  th 
perform   t 
A  generic 
leaves   th 
which  choo 
example, 
SIN(X)  ref 
precision 
the  double 


e  FORTRAN  library  functions  are  classified  i 
he  same  type  of  computation  but  handle  diffe 
function  reference  refers  to   the   generic 
e   selection   of   the   specific  function  up 
ses  according  to   the   data   type  of   the 
if  X   is  a   real   variable,  the  generic  fu 
ers  to  the  real   sine   function.    But   if 
variable,   the   generic  function  reference 
precision  sine  function.   You  need  not  writ 


n  grou 
rent  da 
computa 
to  the 

argune 
nction 
D   is 
SIN(D) 
e  DSIN( 


ps  which 
ta  types, 
tion  and 
compi ler , 
nt.  For 
reference 
a  double 
refers  to 
D). 


Generic  function  selection  occurs  independently  for  each  function 
reference.  Thus,  you  could  use  both  the  function  references  in  the 
example  above,  SIN(X}  and  SIN(D),  in  the  same  program  unit. 

Table  6-2  lists  the  generic  function  names.  These  names  can  be  used 
only  with  the  argument  data  types  shown  in  the  table. 

You  cannot  use  the  names  in  Table  6-2  for  generic  function  selection 
if  you  use  them  in  a  program  unit  in  any  of  the  following  ways: 


•  In  a  type  declaration  statement 

•  As  the  name  of  a  statement  function 


As  a  dummy  argument  name, 
array  name 


common  block  name,  variable  name,  or 
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Generic  function  selection  does  not  apply  to  a  generic  function  name 
declared  in  an  EXTERNAL  statement  and  used  as  an  actual  argument, 
since  there  is  no  argument  list  on  which  to  base  the  function 
selection.  The  name  is  created  according  to  the  rules  for  nongeneric 
FORTRAN  functions  described  above  in  Section  6.3.1. 

Examples: 

EXTERNAL  EXP 

CALL  SUB  (EXP(D)  ) 
EXP  (D)  is  a  generic  function  reference. 

EXTERNAL  SQRT 

CALL  SUB  (SQRT) 

SQRT    is   a   nongeneric    function   passed  as   an   actual   argument. 

Generic  function  names  are  local  to  the  program  unit  that  refers  to 
them.  Thus,  they  can  be  used  for  other  purposes  in  other  program 
units. 


Table    6-2 
Generic   Function  Name   Summary 


Generic  Name 

Data  Type  of 
Argument 

Data  Type  of 
Result 

ABS 

Integer 
Real 
Double 
Complex 

Integer 
Real 
Double 
Real 

AINT,  ANINT 

Real 
Double 

Real 
Double 

INT,  NINT 

Real 
Double 

Integer 
I nteger 

SNGL 

Integer 
Double 

Real 
Real 

DBLE 

Integer 
Real 

Double 
Double 

MOD,  MAX,  MIN,  SIGN,  DIM 

Integer 

Rea2 

Double 

Integer 

Real 

Double 

EXP,  LOG,  SIN,  COS,  SQRT 

Real 

Double 

Complex 

Real 

Double 

Complex 

LOGIO,  TAN,  ATAN,  ATAN 2,  ASIN, 
ACOS,  SINH,  COSH,  TANH 

Real 
Double 

Real 
Double 
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6.3.3  Processor-Defined  and  Generic  Function  Usage 

Figure  5-2  shows  the  use  of  processor-defined  and  generic  function 
names.  In  this  figure,  a  single  executable  program  uses  the  name  SIN 
in  four  distinct  ways: 

•  As  the  name  of  a  statement  function 

•  As  a  generic  function  name 

•  As  a  processor-defined  function  name 

•  As  a  user-defined  function 

Using  the  name  in  these  four  ways  emphasizes  the  local  and  global 
properties  of  the  name. 

In  Figure  6-2,  the  parenthetical  notes  are  keyed  to  the  notes  that 
follow  the  figure. 
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c 
c 
c 


c 

10 
100 


•c 
c 


c 
c 

c 
c 

e 
c 

c 
c 


c 
c 
c 


Sio 


COMPARE  WAYS  OF  COMPUTING  SINE. 

PROGRAM  SINES 

PARAMETER  PI  =  3 . 141592653589793238D0 

REAL* 8  X 

COMMON  V(3) 

DEFINE  SIN  AS  A  STATEMENT  FUNCTION   (Note  1) 

SIN(X)  =  C0S(PI/2-X) 

DO  10  X  =  -PI,  PI,  2*PI/100 

CALL  COMPUT(X) 
REFERENCE  THE  STATEMENT  FUNCTION  SIN   (Note  2) 
WRITE(6,100)  X,V,  SIN(X) 
FORMAT  (5F10.7) 
END 


SUBROUTINE  COMPUT(Y) 

REAL* 8  y 

MAKE  PROCESSOR-DEFINED  FUNCTION  SIN  EXTERNAL  (Note  3) 

EXTERNAL  SIN 

COMMON  V(3) 

GENERIC  REFERENCE  TO  DOUBLE  PRECISION  SINE  (Note  4)         / 

V(l)  =  SIN(Y) 

PROCESSOR-DEFINED  FUNCTION  SINE  AS  ACTUAL  ARGUMENT.  (Note  5) 

CALL  SUB (Y, SIN) 
END 


SUBROUTINE  SUB(A,S) 

DECLARE  SIN  AS  NAME  OF  USER  FUNCTION.  (Note  6)       ,  : 

EXTERNAL  *SIN 

DECLARE  SIN  AS  TYPE  REAL*8  (Note  7) 

REAL* 8  A,  SIN 

COMMON  V(3) 

EVALUATE  PROCESSOR-DEFINED  FUNCTION  SIN  (Note  8) 

V(2)  =  S(A) 

EVALUATE  USER  DEFINED  SIN  FUNCTION.  (Note  9) 

V(3)  =  SIN  (A)  'M--^% 

END  .:.,.t'£viM 


DEFINE  THE  USER  SIN  FUNCTION.  (Note  10) 

REAL*8  FUNCTION  SIN(X) 

INTEGER  FACTOR 

SIN  =  X  -  X**3/FACTOR(3)  +  X**5/FACT0R( 5) 

1        -  X**7/FACTOR(7) 

END 

INTEGER  FUNCTION  FACTOR (N) 

FACTOR  =  1 

DO  10  I=N,  1,  -1 

FACTOR  =  FACTOR  *  I 

END 


Figure  6-2  Multiple  Function  Name  Usage 
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NOTES 


1  A  statement  function  named  SIN  is  defined  in  terms  of  the 
generic  function  name  COS.  Since  the  argument  of  COS  is 
double  precision,  the  double  precision  cosine  function  will 
be  evaluated. 

2  The  statement  function  SIN  is  called. 

3  The  name  SIN  is  declared  external  so  that  the  single 
precision,  processor-defined  sine  function  can  be  passed  as 
an  actual  argument  at  5. 

4  The  generic  function  name  SIN  is  used  to  refer  to  the  double 
precision  sine  function. 

5  The  single  precision,  processor-defined  sine  function  is  used 
as  an  actual  argument. 

6  The  name  SIN  is  declared  a  user-defined  function  name. 

7  The  type  of  SIN  is  declared  double  precision. 

8  The  single  precision  sine  function  passed  at  5  is  evaluated. 

9  The  user-defined  SIN  function  is  evaluated. 

10  The  user-defined  SIN  function  is  defined  as  a  simple  Taylor 
series  using  a  user-defined  function  FACTOR  to  compute  the 
factorial  function. 
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INPUT/OUTPUT  STATEMENTS 


FORTRAN  programs  use  READ  and  ACCEPT  statements  for  input,  and  WRITE, 
REWRITE,  TYPE,  and  PRINT  statements  for  output.  Some  forms  of  these 
statements  are  used  with  format  specifiers  that  control  the 
translation  and  editing  of  data  between  internal  (binary)  form  and 
external  (readable  character)  form. 

Each  READ  or  WRITE  statement  refers  to  the  logical  unit  to  or  from 
which  data  is  to  be  transferred.  A  logical  unit  can  be  connected  to  a 
device  or  file  by  the  OPEN  statement  (see  Section  9.1). 

The  ACCEPT,  TYPE,  and  PRINT  statements  do  not  refer  to  logical  units; 
rather,  they  transfer  data  between  the  program  and  an  implicit  logical 
unit.  The  ACCEPT  and  TYPE  statements  are  normally  connected  to  the 
user's  terminal  and  the  PRINT  statement  is  normally  connected  to  the 
system  line  printer. 

Input/output  (I/O)  statements  are  grouped  into  four  categories: 


Sequential  I/O  -  transfers  record 
files,   or   to  and  from  an  I/O  de 

Spcf  ion  7  . "?  - 


ords  sequentially   to   and   from 
'  vice  such  as  a  terminal.   See 


Section  7.3. 


•   Direct  Access   I/O  -  transfers   records,   selected   by   record 
number,  to  and  from  direct  access  files.   See  Section  7.4. 


•  Keyed  I/O  -  transfers  records, 
contained  in  the  records,  to 
Section  7.5. 


selected   by   data   values 
and  from  indexed  files.   See 


•  Internal  I/O  -  ENCODE  and  DECODE  statements  translate  and 
transfer  data  between  variables  and  arrays  within  the  FORTRAN 
program.   See  Section  7.6. 

I/O  statements  that  contain  format  specifiers  are  called  formatted  I/O 
statements.  Formatted  I/O  statements  are  used  to  translate  data 
between  internal  (binary)  form  within  the  program  and  external 
(readable  character)  form  in  the  records. 

I/O  statements  that  do  not  contain  format  specifiers  are  called 
unformatted  I/O  statements.  Unformatted  I/O  statements  transfer  data 
without  translation.  Unformatted  I/O  is  generally  used  when  data 
output  by  a  program  will  be  subsequently  input  by  the  same  (or  a 
similar)  program.  Unformatted  I/O  saves  execution  time  by  eliminating 
the  data  translation  process,  preserves  greater  precision  in  the 
external  data,  and  usually  conserves  file  storage  space. 

I/O  statements  transfer  all  data  in  terms  of  records.  The  amount  of 
data  that  one  record  can  contain,  and  the  way  records  are  separated, 
depend  on  how  the  data  is  transferred. 


7-1 


INPUT/OUTPUT  STATEMENTS 


In  unformatted  I/O,  the  I/O  statement  specifies  the  amount  of  data  to 
be  transferred.  In  formatted  I/O,  the  I/O  statement  and  its 
associated  format  specifier  jointly  determine  the  amount  of  data  to  be 
transferred. 


Executin"^  an  input  or  output  statement  initiates  transfer  of  a  new 
record.  Normally,  the  data  transferred  by  an  I/O  statement 
constitutes  one  record.  However,  formatted  I/O  statements  can 
transfer  more  than  one  record. 

Section  7.1  describes  general  FORTRAN  input/output  concepts.  Section 
7.2  describes  the  components  of  FORTRAN  I/O  statements.  Sections  7.3 
through  7.6  describe  each  category  of  I/O  statement. 


7.1   I/O  OVERVIEW 

The  following  sections  describe  in  general  terms  the  characteristics 
of  FORTRAN  I/O  processing:  records,  files  and  access  modes.  See  the 
appropriate  PDP-11  FORTRAN  User's  Guide  for  more  detail  about  FORTRAN 
I/O  processing. 


7.1.1   Records 


A  record  is  a  collection  of  data  items,  called  fields,  that  are 
logically  related  and  are  processed  as  a  unit.  Each  FORTRAN  I/O 
statement  transfers  one  record.  Formatted  I/O  statements  may  transfer 
additional  records. 

If  an  input  statement  does  not  use  all  of  the  data  fields  in  a  record, 
the  remaining  fields  are  ignored.  If  an  input  statement  requires  more 
data  fields  than  the  record  contains,  an  error  occurs. 


If  an  output  statement  attempts  to  write  more   data 
record  can  contain,  an  error  condition  occurs. 


fields   than   the 


7.1.2   Piles 

A  file  is  d  collection  of  logically  related   records,  arranged   in   a 

specific   order,    and    treated   as   a   unit.    The  arrangement   or 

organization  of  a  file  is  determined  when  the  file  is  created. 


Files  can 
i  ndexed. 


be   organized   in   three  ways:    sequential,   relative   or 


Files  are  normally  stored  on  disk.  Sequential  files  may  also  be 
stored  on  magnetic  tape.  Other  peripheral  devices  such  as  terminals, 
card  readers,  and  line  printers  are  treated  as  sequential  files. 


7.1.2.1  Sequential  Organization  -  In  the  sequential  file 
organization,  records  appear  in  physical  sequence.  Each  record, 
except  the  first,  has  another  record  preceding  it,  and  each  record, 
except  the  last,  has  another  record  following  it.  The  physical  order 
in  which  records  appear  is  always  identical  to  the  order  in  which 
records  were  originally  written  to  the  file. 


the 
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• 


7.1.2.2  Relative  Organization  -  In  the  relative  file  organization, 
the  file  is  structured  as  a  sequence  of  fixed-length  cells.  These 
cells  are  numbered  from  1  (the  first)  to  n  (the  last).  A  cell's 
number  represents  its  location  relative  to  the  beginning  of  the  fi^3. 
Each  cell  can  contain  a  single  record;  however,  a  cell  can  be  erpty. 
The  cell  number  or  rf;;7ord  number  is  used  to  refer  to  specific  records 
in  the  file. 


7.1.2.3  Indexed  Organization  -  Unlike  the  physical  ordering  of 
records  in  a  sequential  file  or  the  relative  positioning  i  records  in 
a  relative  file,  the  location  of  records  in  the  i.idexed  file 
organization  is  transparent  to  your  program.  The  presence  of  keys  in 
the  records  of  the  file  governs  this  placement. 


A  key  is  a  data  field  in  the  record  of  an  indexed  file.  When  creating 
an  indexed  file,  you  decide  which  field  in  the  file's  records  is  to  be 
a  key;  the  contents  of  the  key  field  are  then  used  to  identify  that 
record  for  subsequent  processing.  The  length  of  a  key  field  and  its 
relative  position  are  identical  for  all  records  in  the  file. 


You  must  define  at  least  one  key  for  an  indexed  file.  This  mandatory 
key  is  the  primary  key  of  the  file.  Optionally,  you  can  define 
additional  keys  called  alternate  keys.  Each  alternate  key  represents 
an  additional  field  in  records  of  the  file.  The  key  value  in  any  one 
of  these  additional  fields  can  also  be  used  as  a  means  of  identifying 
the  record  for  retrieval.  More  than  one  record  can  have  the  same  key 
va lue. 


7.1.3   Access  Modes 

Access  mode  is  the  method  your  program   uses   to   retrieve  and   store 

records   in   a  file.   The  access  mode  is  specified  as  part  of  each  I/O 

statement.   PDF-11  FORTRAN  supports  three  access   modes:  sequential, 
direct,  and  k  eyed. 


Table  7-1  shows  the  valid  access  modes  for  each  file  organization, 


Table  7-1 
Access  Modes  for  Each  File  Organization 


File  Orqanization 

ACCESS  Keyword 

1 

SflQUENTIAL 

DIRECT 

KEYED 

Sequential 

Relative 

Indexed 

Yes 
Yes 
Yes 

Yes^ 

Yes 

No 

No 
No 
Yes 

"Records  must  be  fixed-length, 
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7.1.3.1  Sequent!  1  Access  -  Sequential  access  means  that  records  are 
processed  in  seqjence.  For  a  sequential  organization  file,  the 
sequence  is  the  physical  sequence  of  the  records.  For  a  relative 
file,  the  sequence  is  the  cell  number  sequence.  For  an  indexed  file, 
the  sequence  is  in  ascending  order  of  key  values.  If  two  records  have 
the  same  key  value,  the  sequence  is  in  order  of  insertion  in  the  file. 


7.1.3.2  Direct  Access  -  Direct  access  means  that  the  program 
specifies  the  order  of  processing  by  including  a  direct  access  record 
number  in  each  I/O  statement.  For  sequential  organization  files,  the 
records  must  be  fixed-length. 


7.1.3.3  Keyed  Access  -  Keyed  access  means  that  the  program  specifies 
the  order  of  processing  by  including  a  key  specification  (Section 
7.2.4)  in  an  I/O  statement  to  locate  the  desired  record.  Your  program 
can  mix  keyed  access  and  sequential  access  I/O  statements  on  the  same 
file.  Sequential  I/O  statements  access  records  with  increasing  key 
values  in  the  current  key-of-reference.  You  can  use  keyed  I/O 
statements  to  position  the  file  to  a  particular  place,  and  then  use 
sequential  I/O  statements. 

The  key  specif icaton  in  an  I/O  statement  may  specify  an  exact  match  by 
providing  a  complete  key  value,  or  the  key  specification  may  specify  a 
generic  match  by  providing  a  partial  key  value.  The  first  record 
whose  leftmost  characters  match  the  partial  key  value  is  the  record 
selected. 


Two  forms  of 
approximate 
either  greate 


match  criterion  may  be  specified:  exa 
match.  Furthermore,  approximate  match  may  be 
r  than  or  as  greater  than  or  equal  to  match. 


exact   match   or 
specified  as 


7.2   I/O  STATEMENT  COMPONENTS 


The  following  sections  describe  the  components  of  I/O  statements: 
logical  unit  numbers,  format  specifiers,  direct  access  record  numbers, 
key  expressions,  I/O  lists,  and  parameters  specifying  the  transfer  of 
control  if  an  error  or  end-of-file  condition  occurs. 


7.2.1   Logical  Unit  Numbers 

A  logical  unit  number  is  an  integer  value  that  refers  to  a  specific 
file  or  I/O  device.  A  logical  unit  number  must  be  an  integer  constant 
or  variable  with  a  value  in  the  range  1  through  99. 

A  logical  unit  number  is  connected  to  a  file  or  device  in  one  of  two 
ways: 

•  Explicitly  through  an  OPKN  statement  (see  Section  9.1). 

•  Implicitly  by  the  system.  The  appropriate  PDP-11  FORTRAN 
User's  Guide  describes  the  use  of  implicit  logical  unit 
numbers  in  greater  detail. 
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In  FORTRAN 
necessary, 
used. 


IV-PLUS,  a  logical  unit  number  can  be  any 
the   value   is  converted  to  integer  data 


expression.    If 
type  before  it  is 


7.2.2  Format  Specifiers 

Format  specifiers  are  used  in  formatted  I/O  statements  and  can  be   any 
of  the  following: 

•  The  statement  label  of  a  FORMAT  statement 

•  The  name  of  an  array  containing  a  run-time  format  ..  ee  Section 
8.6)  . 

Chapter  8  describes  FORMAT   statements.    Section   8.7   describes   the 
interaction  between  formats  and  I/O  statements. 

In  sequential  I/O  statements,  you  can  use  an   asterisk   instead   of   a 
format   specifier   to   denote   list-directed  formatting.   See  Sections 

7.3.3  and  7.3.4  on  list-directed  I/O. 


7.2.3  Direct  Access  Record  Numbers 

A  direct  access  record  number  is  an  integer  value  that   specifies   the 
position  of  the  record  in  a  direct  access  file. 

The  value  must  be  greater  than  or  equal  to  1,  and  less  than   or   equal 
to  the  maximum  number  of  records  in  the  file. 

In  FORTRAN  IV-PLUS,  the  record   number  can  be  any  expression.    If 
necessary,  the  value  is  converted  to  integer  data  typa  before  use. 


7.2.4   Key  Specifiers  and  Key  Fields 


In  the  indexed  file  orga 
are  designated  for  use  i 
a  key  field  and  the  valu 
alphanumeric  strings  or 
index  for  each  designate 
locations  of  the  reco 
the  key  of  the  desired  r 
appropriate  index.  Use 
keyed  access.  Within  ea 
order  of  increasing  key 


nization,  one  or  more  f 
n  locating  the  record, 
e  it  contains  is  called 
binary  integers.  An  i 
d  key  field.  In  an  ind 
rds  are  listed  as  entri 
ecord,  the  system  can  1 
of  a  key  to  obtain  a  i 
ch  index,  records  are  o 
value. 


ields   in   each 

Such  a  field  i 

a  key.    Keys 

ndexed  file  con 

exy  the   keys 

es.   Once  suppl 

ook  up  the  key 

xific  record  i 

rdered  sequenti 


record 
s  called 

may  be 
tains  an 
and  the 
ied  with 

in  the 
s  called 
ally   in 


The  indexes  of  the  file  are  denoted  by  numbers  frrm  0  to  n,  where  n  is 
the  maximum  number  of  indexes  defined  for  the  file.  The  value  of  n 
must  be  less  than  255.  Index  number  0  is  called  the  primary  index  or 
primary  key.  The  other  indexes  are  called  alternate  keys;  for 
example,  index  number  3  specifies  the  third  alternate  key. 


Keyed  access  to  indexed  files  is  specified 
READ  statements. 


by   key   specifications   in 
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A  ke',  specification  has  three  components: 

•  A  key  expression,  which  specifies  the  value  of  the  key   to   be 
used. 

•  A  key-of-^ef erence  number,  which  specifies   the   index   to   be 
used. 

•  A  match     -.erion,  which  specifies  the  conditions  of  selection 
for  a  rev 

A  key  specification  has  the  following  form: 

(keY=  )--ke[,KEYID=kn] 

)keyge( 
(keygt) 


ke 


A  key  expression. 


kn 


An  integer  expression,  called  the  key-of-ref erence   number,   that 
specifies  the  index  to  be  searched. 

The   KEY   and  KEYID   parameters  may   appear   in   any   order.    These 
specifications  must  follow  the  unit  number  and  format  specifier. 


7.2.4.1   Key  Expressions  -  Two  types  of  key  expressions  are  supported: 

•  Character  key  expressions 

•  Integer  key  expressions 

Character  key  expressions  must  be  used  with  character  keys,  and 
integer  key  expressions  must  be  used  with  integer  keys.  A  character 
key  expression  is  an  ASCII  string  in  one  of  the  following  forms: 

•  An  alphanumeric  literal 

•  A  BYTE  (L0GICAL*1)  array  name  containing  Hollerith  data 

The  length  of  the  character  key  expression  is  the  length  of  the 
character  value  or  the  length  of  the  BYTE  array.  If  the  length  of  thc^ 
key  expression  is  greater  than  the  length  of  the  key  field,  the  excess 
characters  are  ignored.  If  the  length  of  the  key  expression  is  less 
than  the  length  of  the  key  field,  then  a  generic  key  search  is  made 
rather  than  an  exact  key  search.   (See  Section  7.2.4.3.) 


An  integer  key  expression  is   an   integer   expression, 
precision,  and  complex  values  are  not  permitted. 


Real,   double 
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7.2.4.2   Key-of-Reference  Number  -  The   key-of-ref erence   number  or 

key-id   is   an   integer   value  in  the  range  0  to  the  maximum  number  of 

keys  defined  for  the  file.  A  value  of  0  specifies  the  primary  key,  a 
value  of  1  specifies  the  first  alternate  key,  and  so  forth. 

If  no  key-of-ref erence  number  is  given,  the  key-of-ref erence  is 
unchanged  from  the  last  specification  given  in  a  keyed  I/O  statement 
for  that  logical  unit. 


7.2.4.3  Natch  Criterion  -  The  match  criterion  specifies  which  ke^ 
values  in  the  record  can  match  the  key  expression.  There  are  three 
possible  criteria: 

•  Equal.   The  key  value  must  equal  the  key  expression  specified. 

•  Greater.    The   key   value  must   be   greater   than   the   key 
expression  specified. 

•  Greater  than  or  equal.   The  key  value  must  be  greater  than   or 
equal  to  the  key  expression  specified. 

The  match  criterion  is  appended  to  the  KEY  parameter: 


KEY  =val 
KEYEQ  =val 
KEYGT  =val 
KEYGE    =val 


-  specifies  equal 

-  specifies  equal 

-  specifies  greater 

-  specifies  greater  or  equal 


For  character  keys,  the  comparison  is   made   according   to   the   ASCII 
collating  sequence. 

For  integer  keys,  the  comparison  is  made  according   to   the   algebraic 
decimal  value. 


If  no  match  criterion  is  specified,  equal  match  is  assumed. 

For  character  keys,  either  generic  match  or  exact  match  can  be  used. 
Generic  match  applies  if  the  key  expression  in  the  I/O  statement  is 
shorter  than  the  key  field  in  the  record.  In  this  case,  only  the 
leftmost  characters  of  the  key  field  are  used  for  the  match. 

For  example,  if  the  key  expression  is  'ABCD'  and  the  key  field  is  ten 
characters  long,  then  an  equal  match  is  obtained  for  the  first  record 
containing  'ABCD'  as  the  first  four  bytes  '^f  the  key.  The  remaining 
six  characters  are  arbitrary. 

Approximate-generic  match  occurs  when  approximate  match  is  selected  in 
addition  to  generic  match.  In  that  case,  only  the  leftmost  characters 
are  used  for  comparison. 

For  example,  if  the  key  expression  is  'ABCD',  and  the  key  field  is 
five  characters  long,  and  a  greater-than  match  is  selected,  then  the 
value  'ABCDA'  does  not  match;   'ABCEx'  does  match. 
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7.2.5   End-of-File  Condition  and  Error  Condition  Parameters 

If  an  I/O  error  or  end-of-file  condition  is  encountered,  any  READ, 
WRITE,  REWRITE,  ENCODE  or  DECODE  statement  can  specify  that  control  is 
to  be  transferred  to  a  specified  statement.  The  specifiers  have  the 
following  forms,  respectively,  for  end-of-file  and  error  conditions: 


i:;nd=s 


ERR=s 


s 


The  label  of 
transferred. 


an  executable  statement  to  which  control   is   to   be 


A  READ,  WRITE,  REWRITE,  ENCODE  or  DECODE  statement  can  include  either 
or  both  of  the  above  specifications,  in  any  order.  The 
specif ication (s)  must  follow  the  unit  number,  record  number,  and/or 
format. 

The  statement  label  in  the  END=s  or  ERR=s  specification  must  refer  to 
an  executable  statement  within  the  same  program  unit  as  that  of  the 
I/O  statement. 

An  end-of-file  condition  occurs  when  no  more  records  exist  in  a 
sequential  file,  or  when  an  end-file  record  pioduced  by  the  ENDFILE 
statement  (see  Section  9.8)  is  encountered.  If  a  READ  statement 
encounters  an  end-of-file  condition  during  an  I/O  operation,  it 
transfers  control  to  the  statement  named  in  the  END=s  specification. 
If  no  END=s  specification  is  present,  an  error  condition  occurs. 


If  a  READ,  WRITE,  REWRITE,  ENCODE  or  DECODE  statement  encounters  an 
error  condition  during  an  I/O  operation,  it  transfers  control  to  the 
statement  whose  label  appears  in  the  ERR=s  specification.  If  no  ERR=s 
is  present,  the  I/O  error  terminates  program  execution. 


An  END=  specification  in  a  WRITE  or  REWRITE  statement,  direct  access 
READ  statement,  or  keyed  access  READ  statement  is  ignored.  If  you 
attempt  to  read  or  write  a  record  using  a  record  number  greater  than 
the  maximum  specified  for  the  logical  unit,  an  error  condition  occurs. 


The   appropriate 
subroutines   that 
subroutines 
on  the  type 


PDP-11   FORTRAN 
you   can   use 


User 's 


Guide    describes    system 


to  control  error  processing.  These 
can  also  be  used  to  obtain  information  from  the  I/O  system 
of  error  that  occurred. 


Examples  of  I/O  statements  follow. 

READ  (8,END=550)  (MATRIX ( K)  ,K=1 ,100) 

This  statement  transfers  control  to  statement 
condition  occurs  on  logical  unit  8. 

WRITE  (6,50,ERR=390) 

This  statement  transfers  control  to  statement  390  if  an 
in  execution  of  the  WRITE  statement. 


550   if   an   end-of-file 


error   occurs 


READ  (1,FORM,ERR=150,END=200)  ARRAY 

This  statement  transfers  control  to  statement  150  if  an  error  occurs 
in  the  execution  of  the  READ  statement  and  to  statement  200  it  the 
end-of-file  condition  occurs. 


7-8 


INPUT/OUTPUT  STATEMENTS 


7.2.6   Input/Output  Lists 

The  I/O  list,  in  an  input,  output,  ENCODE,  or  DECODE  statement  contains 
the  names  of  variables,  arrays,  and  array  elements  from  which  or  to 
which  data  will  be  transferred.  The  I/O  list  in  an  output  statement 
can  also  contain  constants  and  expressions  to  be  output. 


An  I/O  list  has  the  following  form: 
s[,  s]  . . . 


s 


A  simple  list  or  an  implied  DO  list. 


The  I/O  statement  assigns  values  to,  or   transfers   values   from,   the 
list  elements  in  the  order  in  which  they  appear,  from  left  to  right. 


7.2.6.1  Simple  Lists  -  A  simple  I/O  list  element  can  be  a  single 
variable,  array,  array  element,  constant,  or  expression.  A  simple  I/O 
list  consists  of  either  a  simple  I/O  list  element  or  a  group  of  two  or 
more  simple  I/O  list  elements  separated  by  commas  and  enclosed  in 
parentheses.   For  example: 


WRITE  (5,10)  J,  K(3),  4,  (L+4)/2,  N 


When  you  use  an  unsubscr ipted  array  name  in  an  I/O  list,  a  READ  or 
ACCEPT  statement  reads  enough  data  to  fill  every  element  of  the  array; 
a  WRITE,  TYPE,  or  PRINT  statement  writes  all  the  values  in  the  array. 
Data  transfer  begins  with  the  initial  element  of  the  array  and 
proceeds  in  the  order  of  subscript  progression,  with  the  leftmost 
subscript  varying  most  rapidly.  For  example,  the  following  defines  a 
two-dimensional  array: 

DIMENSION  ARRAY(3,3) 

If  the  name  ARRAY,  with  no  subscripts,  appears  in  a  READ  statement;, 
that  statement  assigns  values  from  the  input  record  (s)  to 
ARRAY(1,1),  ARRAY(2,1),  ARRAY(3,1),  ARRAY(1,2),  and  so  on  through 
ARRAY (3,3) . 

In  a  READ  or  ACCEPT  statement,  vai'ables  in  the  I/O  list  can  be  used 
in  array  -^ubscripts  later  in  the  "  ,t.   For  example: 

READ  (1,1250)  J,K,ARRAY(J,K) 
1250  FORMAT  ( II  ,X  ,  1 1  ,X  ,F6  .  2 ) 

The  input  record  contains  the  following  values: 

1,3,721.73 

When  the  READ  statement  is  executed,  the  first  input  value  is  assigned 
to  J  and  the  second  to  K,  thereby  establishing  the  actual  subscript 
values  for  ARRAY(J,K).  Then  the  value  721.73  is  assigned  to 
ARRAY(1,3).  Variables  that  are  to  be  used  as  subscripts  in  this  way 
must  appear  before  (to  the  left  of)  their  use  as  the  array  subscripts 
in  the  l/n  list. 


An  output  statement  I/O  list  may  contain  any  valid  expression. 
However,  this  expression  must  not  attempt  any  further  I/O  operations. 
For  example,  an  output  statement  I/O  list  expression  must  not  refer  to 
a  function  subprogram  that  performs  I/O. 
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An  input  statement  I/O  list  must  not  contain  an  expression,  except   as 
a  subscript  exp-ession  in  an  array  reference. 


7.2.6.2 
tha 


Implied  DO  I ists  -  An  imp 


implied  DO  list  is  an  I/O  list   element 


t   functions   as  thou^jh  it  were  a  part  of  an  I/O  statemen 


t  within  a 


DO  loop, 


Implied  DO  lists  can  be  used  to: 
Specify  iteration  of  part  of  an  I/O  list 
Transfer  part  of  an  array 


Transfer  array  elemen 


t<^  in  a  sequence  different  from  the  order 


An 


of  subscript  progressiu 
implied  DO  list  has  the  form: 


n 


list 


(list, i=el ,e2  L ,e3] ) 


An  I/O  list. 


An  integer  variable. 

el,e2,e3 

Integer  expressions. 

The  variable  i  and  the  parameters  el,  e2 ,  and  e3  have  the  same  forms 
and  the  same  functions  that  they  have  in  the  DO  statement  (see  Section 
4.3).  The  list  immediately  preceding  the  DO  loop  parameter  is  the 
range  of  the  implied  DO  loop.  Elements  in  that  list  can  reference  i, 
but  they  must  not  alter  the  value  of  i.   Some  examples  are: 

WRITE  (3,200)  (A,B,C,  1=1,3) 
The  statement  i'  this  example  behaves  as  though  you  had  written: 
WRITE  (3,200)  A,B,C,A,B,C,A,B,C 

Another  example  is: 

WRITE  (6)  (I,  (J,P(I)  ,Q(I,J)  ,J  =  1»L)  ,I  =  1,M) 

The  I/O  list  in  this  example  consists  of  an  implied  DO  list  containing 
another  implied  DO  list  nested  within  it.  The  implied  DO  lists 
together  vill  write  a  total  of  (1+3*L)  *M  fields,  varying  the  Js  for 
each  va lue  of  I  . 

In  a  series  of  nested  implied  DO  lists,  the  parentheses  indicate  the 
nesting  (see  Section  4.3.2).  Execution  of  the  innermost  lists  is 
repeated  most  often.   For  example: 

WRITE  (6,150)  ((FORM. A, L),  L=l,10),  K=l,10,2) 
*  150   FORMAT  (F10.2) 

Because  the  inner  DO  loop  is  executed  10  times  for  each  iteration  of 
the  oute--  loop,  the  second  subscript  L  advances  from  1  through  10  for 
each  increment  of  the  first  subscript.  This  is  the  reverse  of  the 
order  of  subscript  progression.  In  addition,  K  is  incremented  by  2, 
so  only  the  odd-numbered  rows  of  the  array  are  outpat. 
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The  entire  list  of  an  implied  DO  list  is  transmitted  before  the 
control  variable  is  incremented.   For  example: 

READ  (6,999)  (P(I),  (Q(I,J),  J=l,10),  1=1,5) 

In  this  example,  P(l),  Q(l,l),  Q{1,2)  ...,Q{1,10)  is  read  before  I  is 
incremented  to  2. 

When  processing  multidimensional  arrays,  you  can  use  a  combination  of 
fixed  subscripts  and  subscripts  that  vary  according  to  an  implied  DO 
list.   For  example: 


READ  (3,5555)   (B0X(1,J),  J=l,10) 

This  statement  assigns  input  values  to  B0X(1,1)  through  BOX(1,10) 
then  terminates  without  affecting  any  other  element  of  the  array. 

The  value  of  the  control  variable  can  also  be  output   directly, 
example: 

WRITE  (6,1111)  (I,  1=1,20) 

This  statement  simply  prints  the  integers  1  through  20. 


and 


For 


• 


7.3   SEQUENTIAL  INPUT/OUTPUT 

Sequential  I/O  statements  transfer  records  sequentially  to  or  from 
either  files  or  I/O  devices. 

Formatted  sequential  I/O  statements  transfer  records  using  format 
specifiers  to  control  the  translation  of  data  between  internal  and 
external  form. 

List-directed  sequential  I/O  statements  transfer  formatted  records. 
Instead  of  using  a  format  specifier,  the  data  types  of  the  I/O  list 
elements  control  the  translation  of  data  between  internal  and  external 
form.  In  effect,  list-directed  sequential  I/O  statements  are  a  method 
of  obtaining  simple  formatted  input  or  output  without  using  FORMAT 
statements.  Both  formatted  sequential  and  list-directed  I/O 
statements  can  refer  to  the  same  logical  unit.  When  you  read  files 
that  contain  both  formatted  and  list-directed  records,  you  must  ensure 
that  each  record  is  read  with  the  correct  format. 

Unformatted  sequential  I/O  statements  transfer  records  of  binary  data 
without  translation. 


READ 
ACCEPT 


7.3.1   Formatted  Sequential  Input  Statements 


The  formatted  sequential  READ  statement  transfers  data  from  the 
specified  logical  unit.  If  a  formatted  sequential  READ  statement  does 
not  have  a  logical  unit  number,  it  uses  an  implicit  logical  unit. 
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The  formatted  sequential  ACCEPT  statement  is  similar  to  a  formatted 
sequential  READ  statement  except  that  an  implicit  logical  unit  number 
is  always  used. 

Formatted  sequential  input  statements  have  the  following  forms: 

READ   (u,f [,END=s] [,ERR=s] ) [list] 

READ   f[,list] 

ACCEPT   f[,list] 


u 


s 


list 


A  logical  unit  number. 

A  format  specifier. 

The  label  of  an  executable  statement. 

An  I/O  list. 


A  statement  of  the  following  form  causes  data  to  be  read  from  a 
system-defined  logical  unit: 

READ  2  00,  ALPHA, BETA, GAMMA 

Characters  transferred  by  formatted  sequential  statements  are 
translate  =  o  the  internal  form  specified  by  the  format  specifier. 
The  resulting  values  are  assigned  to  the  elements  of  the  I/O  list. 

If  the  numbet  of  list  elements  is  less  than  the  number  of  input  record 
fields,  the  excess  portion  of  the  record  is  ignored. 

Usually  a  single  formatted  record  is  transferred  by  the  execution  of  a 
formatted  sequential  input  statement.  However,  the  format  specifier 
can  specify  that  more  than  one  record  is  to  be  read  during  execution 
of  a  single  input  statement. 

If  the  FORMAT  statement  associated  with  a  formatted  input  statement 
contains  a  Hollerith  constant,  input  data  is  read  and  stored  directly 
into  the  storage  location  of  the  format  sueci f ication.  See  Section 
8.1.9. 

I f  no  I/O  list  is  present,  data  transfer  occurs  only  between  the 
record  and  the  storage  location  of  the  form&t  specifier.   For  example: 

READ  (5,100) 
100   FORMAT  (15H  DATA  GOES  HERE) 

These  statements  read  15  characters  from  the  next  record  on  logical 
unit  5.   If  the  15  characters  are: 

REVIEW  SECTIONS 

The  FORMAT  statement  becomes: 

100   FORMAT  (15HREVIEW  SECTIONS) 


7-12 


INPUT/OUTPUT  STATEMENTS 


Other  examples  of  formatted  sequential  input  statements  follow. 

READ  (1,300)  ARRAY 
300   FORMAT  (20F8.2) 

These  statements  read  a  record  from  logical  unit  1  and  assign  fields 
to  ARRAY. 

READ  100,  ICOUNT, ALPHA, BETA 
100   FORMAT  (15,  F8.2,  F5.1) 

These  statements  read  a  record  from  an  implicit  logical  unit,  and 
assign  fields  to  integer  variable  ICOUNT  and  real  variables  ALPHA  and 
BETA. 


WRITE 

TYPE 

PRINT 


7.3.2   Formatted  Sequential  Output  Statements 


The  formatted  sequential  WRITE  statement  transfers  data  to  the 
specified  logical  unit. 

The  formatted  sequential  TYPE  and  PRINT  statements  are  similar  to  the 
formatted  sequential  WRITE  statement,  except  that  output  is  directed 
to  an  implicit  logical  unit. 

The  formatted  sequential  output  statements  have  the  following  forms: 

WRITE   (u,f [,ERR=s] ) [list] 

TYPE   f[,list] 

PRINT   f[,list] 


u 


A   logical   unit   number, 


A    format   specifier, 


list 


The  label  of  an  executable  statement, 


An  I/O  list. 


The  I/O  list  specifies  a  sequence  of  values  that  are  converted  to 
characters  and  positioned  as  specified  by  the  format  specifier.  If  no 
I/O  list  is  present,  data  transfer  occurs  only  between  the  storage 
location  of  the  format  specifier  and  the  record. 

The  data  transferred  by  a  formatted  sequential  output  statement 
normally  constitutes  one  formatted  record.  However,  the  format  can 
specify  that  additional  records  are  to  be  written  during  execution  of 
a  single  output  statement. 
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Numeric  data   output   under   format   control   is  rounded   during   the 

conversion   to   external  format.   If  such  data  is  input  for  additional 

calculations,  loss  of  precision  may  result.  To  avoid  loss  of 
precision,  use  unformatted  output. 

The  records  transmitted  by  a  formatted  WRITE  statement  must  not  exceed 
the  length  that  the  specified  device  can  accept.  For  example,  a  line 
printer  typically  cannot  print  a  record  longer  than  132  characters. 

Examples  of  formatted  sequential  output  statements  follow. 

WRITE  (6,  650) 
650   FORMAT  ('  HELLO  THERE') 


These  statements  write   the   alphanumeric   literal   contained 
FORMAT  statement  to  logical  unit  6. 


in      the 


WRITE    (1,95)    AYE,BEE,CEE 
95         FORMAT    (3F8.5) 


These  statements  write  one  record,   consisting   of   three   fields,   to 
] ogi  cal  unit  1 . 

WRITE  (1,950)  AYE,BEE,CEE 
950   FORMAT  (F8.5) 

These  statements  write  three  separate  records,  consisting  of  one  field 
each,  to  logical  unit  1. 


In  the  last  example,  the  rightmost  parenthesis  of  the  FORMAT  statement 
is  reached  before  all  elements  of  the  I/O  list  are  output.  Each  time 
this  occurs,  the  current  record  is  termini  ed  and  a  new  record  is 
initiated.  Thus,  three  separate  records  are  written.  For  a  more 
complete  explanation  see  Section  8.7. 


READ 
ACCEPT 


7.3.3   List-Directed  Input  Statements 

The  list-directed  READ  statement  transfers  records  from  the  specified 
logical  unit,  translates  the  data  from  external  to  internal  form,  and 
assigns  the  resulting  values  to  the  elements  of  the  I/O  list  in  the 
order  in  which  those  elements  appear,  from  left  to  right.  The  I/O 
list  is  required.  If  a  list-directed  READ  statement  does  not  include 
a  logical  unit  number,  an  implicit  logical  unit  number  is  used.  The 
list-directed  ACCEPT  statement  is  similar  to  a  list-directed  READ 
statement  except  that  an  implicit  logical  unit  number  is  always  used. 
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The  list-directed  input  statements  have  the  following  forms; 
READ  (u,*[,END=s] [,ERR=s])  list 
READ  *,list 
ACCEPT  *,list 


u 


A  logical  unit  number. 

Indicates  list-directed  formatting. 

The  label  of  an  executable  statement. 


list 


An  I/O  list. 


The  external  record  must   contain   a 
separators.   A  value  can  be: 


sequence   of   values   and   value 


•  A  constant 

•  A  null  value 

•  A  repetition  of  constants  in  the  form  r*c 

•  A  repetition  of  null  values  in  the  form  r* 

The  following  paragraphs  describe  these  values. 

Each  input  constant  has  the  form  of  a  FORTRAN  constant  (see  Section 
2.3).  A  complex  constant  has  the  form  of  pair  of  real  ot  integer 
constants  separated  by  a  comma  and  enclosed  in  parentheses.  Spaces 
can  occur  between  the  opening  parenthesis  and  the  first  constant, 
before  and  after  the  separating  comma,  and  between  the  second  constant 
and  the  closing  parenthesis.  A  logical  constant  is  either  T  or  t 
(true)  or  F  or  f  (false).  Hollerith  and  octal  constants  are  not 
permitted.  If  the  data  types  of  a  list  element  and  its  corresponding 
constant  do  not  match,  conversion  is  performed  according  to  the  rules 
for  arithmetic  assignment  (see  Table  3-1). 

A  null  value  is  specified  by  two  consecutive  commas  with  no 
intervening  constant.  Spaces  can  occur  between  the  commas.  A  null 
value  specifies  that  the  corresponding  list  element  remains  unchanged. 
A  null  value  cannot  be  used  for  either  part  of  a  complex  constant,  but 
can  represent  an  entire  complex  constant. 

The  form  r*c  indicat«2s  r  occurrences  of  c  where  r  is  a  nonzero, 
unsigned  integer  constant  and  c  is  a  constant.  Spaces  are  not 
permitted  except  within  the  constant  c  as  specified  above. 


The  form  r*  indicates  r  occurrences  of  a  null   value  where   r 
unsigned  integer  constant. 

A  value  separator  can  be: 

•  One  or  more  spaces  or  tabs 

•  A  comma,  wiMi  or  without  surrounding  spaces  or  tabs 

•  A  slash 


IS   an 
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The  slash  value  separator  terminates  processing  on  the  input 
statement  and  record;  all  remaining  I/O  list  elements  are 
unchanged. 

Each  input  statement  will  read  one  or  more  records  as  required 
to  satisfy  the  I/O  list.  If  a  slash  separator  occurs  or  the 
I/O  list  is  exhausted  before  all  the  values  in  a  record  are 
used,  the  remainder  of  the  record  is  ignored. 

The  end  of  a  record  is  equivalent  to  a  space  character. 

Spaces  at  the  beginning  of  a  record  are  ignored. 


An  example  follows. 

The  program  unit  includes: 

DOUBLE  PRECISION  T 

COMPLEX  D,E 

LOGICAL  L,M 

READ  (1,*)  I,R,D,E,L,M,J,K,S,T,A,B 


The  external  record  contains: 

4  6.3  (3.4E0,4.2e0) ,  (3,  2  )  ,  t,F, ,3*14.6  / 
The  following  values  are  assigned  to  the  I/O  list  elements; 


I/O  List 
E lement 

I 
R 
D 
E 
L 
M 
K 


Value 

4 
6.3 

(3.4,4.2) 

(3.0,2.0) 

.TRUE. 

.FALSE. 

14 

14.6 

14.6D0 


A,  B,  and  J  will  je   unchanc'-d. 


WRITE 

TYPE 

PRINT 


7.3.4   List-Directed  Output  Statements 

The  list-d.  r ected  WRITE  statement  transfers  the  elements  in  the  I/O 
list  to  the  specified  logical  unit,  translating  and  editing  each  value 
arnc    jirg  to  the  data  type  of  the  value. 

The  ,ist-directed  TYP'^  and  PRINT  statements  are  similar  to  the 
list-airecte  -(ITE  statement,  except  that  output  is  directed  to  an 
implicit  lo>  i  c   unit. 
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List-directed  output  statements  have  the  following  forms; 
WRITE  (u,* [,ERR=s] )  list 
TYPE   *,list 
PRINT  *,list 


list 


A  logical  unit  number. 
Indicates  list-directed  formatting. 
The  label  of  an  executable  statement. 
An  I/O  list. 


The  values  in  the  I/O  list  are  converted  to  character  form  and  written 
in  a  fixed  format  according  to  the  data  type  of  the  value.  Table  7-2 
lists  the  output  formats  for  each  data  type.  The  I/O  list  is 
required. 


Table  7-2 
List-Directed  Output  Formats 


Data   Type 

Output   Format 

LOGICAL*! 

L0GICAL*2 

L0GICAL*4 

INTEGER*2 

INTEGER*4 

REAL*4 

REAL*8 

C0MPLEX*3 

Hollerith 

15 
L2 
L2 
17 
112 

1PG15.7 
1PG25.16 

IX,' (',1PG14.7,     ',',     IPG14.7,')' 
IX, An         (n    is    the    length    of    the 
Hollerith   constant) 

List-directed  output  statements  du  not  produce  octal  values,  null 
values,  slash  separators,  or  repeated  forms  of  values.  Alphanumeric 
literals  in  the  I/O  list  itself  are  output  without  delimiting 
apostrophes.  Note  that  list-directed  output  records  that  contain 
Hf>llerith  constants  may  not  be  input  using  list-directed  formatting. 

Each  output  record  begins  with  a  space  for  jarriage  control.  Each 
output  ftatement  writes  one  or  more  co.rplete  records  (see  Section 
8.7).  Each  output  value  is  contained  within  a  single  record,  except 
for  Hollerith  constants  Mtat  ^..e    longer  than  a  recoid. 
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Some  examples  follow: 

PRINT  *, 'THEAARRAYAZAIS' ,Z 

TYPE  *,  'THEAANSWERAIS*  ,  (I  ,XX ( I)  , I  =  1 , 1 0) 

If  a  program  unit  consists  of: 

DIMENSION  A(5) 

DATA  A/5* 3. 4/ 

WRITE  (1,*)  ' ARRAY AVALUESAFOLLOW 

WRITE  (1,*)  A, 5 

then  the  following  records  will  be  output: 


ARRAYAVALU  ESAFOLLOW 
AAA3.400000AAAAAAA3. 400000^ 
AAA3 .40000  0 AAAAAAAAAA5 


^A3.40000  0AAAAAAA3.400000 


READ 


7.3.5  Unformatted  Sequential  Input  Stati^ment 

The  unformatted  sequential  READ  statement  transfers  one  unformatted 
record  from  the  specified  logical  unit,  and  assigns  the  untranslated 
fields  of  the  record  to  the  I/O  list  elements  in  the  order  in  which 
they  appear,  from  left  to  right.  The  data  type  of  each  element 
determines  the  amount  of  data  input  to  the  element. 

The  unformatted  sequential  READ  statement  has  the  following  form: 

READ  (u[,END=s] [,ERR=s]) [list] 

u 

A  logical  unit  number. 


s 


list 


The  label  of  an  executable  statement. 


An  I/O  list. 


An  unformatted  sequential  READ  statement  reads  exactly  one  record.  If 
the  I/O  list  does  not  use  all  the  values  in  the  record  (that  is,  there 
are  more  values  in  the  record  than  elements  in  the  list),  the 
remainder  of  the  record  is  discarded.  If  the  number  of  list  elements 
is  greater  than  the  number  of  values  in  the  record,  an  error  occurs. 

If  an  unformatted  sequential  READ  statement  contains  no  I/O  list,  one 
full  record  is  skipped. 

The  unformatted  sequential  READ  statement  must  only  be  used  to  read 
records  created  by  unformatted  sequential  WRITE  statements. 

Examples  of  unformatted  sequential  input  statements  follow, 

READ  (1)  FIELDl,  FIELD2 
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This  statement  reads  one  record  from  logical  unit  1  and  assigns  values 
^^        to  variables  FIELDl  and  FIELD2. 

^^             READ  (8) 

This  statement  advances  logical  unit  8  by  one  record. 

WRITE 

7.3.6   Unformatted  Sequential  Output  Statement 

The  unformatted  sequential  WRITE  statement  transfers  the   untranslated 
values   of   the  elements  in  the  I/O  list  to  the  specified  logical  unit 
as  one  unformatted  record. 

^^        The  unformatted  sequential  WRITE  statement  has  the  following  form: 

^^              WRITE  (u[,ERR=s]  )  [list] 

u 

A  logical  unit  number. 

s 

The  label  of  an  executable  statement. 

list 

An  I/O  list. 

^^P        If  an  unformatted  WRITE  statement   contains   no 
^^^        record  is  output  to  the  specified  unit. 

I/O   list,   one   null 

Some  examples  follow. 

WRITE  (1)  (LIST(K) ,K=1,5) 

This  statement  outputs  the  contents  of  elements 
LIST  to  logical  unit  1. 

1  through  L   of   array 

^^              WRITE  (4) 

^^^        This  statement  writes  a  null  record  on  logical  i 

jnit  4 . 

7.4   DIRECT  ACCESS  INPUT/OUTPUT 

Direct  access  I/O  statements  transfer   records,   specified   by   record 
numbers,   to   and   from   direct   access  files.   Each  direct  access  I/O 
statement  contains  a  record  number.   The  OPEN  statement  (Section   9.1) 
establishes  the  attributes  of  the  direct  access  file. 

Formatted  direct  access  I/O  statements  transfer  records,  using   format 
specifiers   to  control   translation  of   data   between   internal   and 
external  form.   If  the  I/O  list  and  format  specify  additional  records, 
the  record  number  is  increased  by  one  for  each  record  read  or  written. 

Unformatted  direct  access  I/O  statements  transfer   records   of   binary 
^^^         data  without  translation.   The  DEFINE  FILE  statement  (Section  9.9)  may 
^^P        be  used  to  specify  the  attributes  of  the  direct  access  file. 
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READ 


7.4.1   Formatted  Direct  Access  Input  Statement 


The  formatted  direct  access  READ  statement  transfers  the  specified 
record  from  the  file  currently  connected  to  the  specified  unit.  The 
characters  in  the  record  are  translated  to  internal  form  according   to 


the   format   specifier, 
elements  of  the  I/O  list, 


The   resulting   values   are   assigned  to  the 


The  formatted  direct  access  READ  statement  has  the  following  form; 
READ  (u'r, f [,ERR=s] ) [list] 


u 


A  logical  unit  number, 


list 


The  record  number. 


A  format  specifier. 


The  label  of  an  executable  statement, 


An  I/O  list. 


If  the  I/O  list  and  format  do   not   use   all   the   characters   in   the 
record,  the  remainder  of  the  record  is  discarded. 

A  valid  example  follows. 

READ  (2'35,10)  (NUM (K)  , K  =  l  ,  1 0) 


10 


FORMAT  (1012) 


These  statements  read  1  record,  consisting  of  10  fields,   from   record 
35  of  the  file  connected  to  logical  unit  2. 


WRITE 


7.4.2   Formatted  Direct  Access  Out{  it  Statement 

The  formatted  direct  access  WRITE  statement  transfers  the  specified 
record  to  the  file  currently  connected  to  the  unit.  The  I/O  list 
specifies  a  sequence  of  values  that  are  translated  to  characters  and 
written  in  the  sequence  specified  by  the  , ormat  specifier. 
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The  formatted  direct  access  WRITE  statement  has  the  following  form: 
WRITE  (u'r, f [,ERR=s] ) [list] 

u 

A  logical  unit  number. 

r 

The  record  number. 

f 

A  format  specifier. 

s 

The  label  of  an  executable  statdment. 


list 


An  I/O  list. 


If  the  values  specified  by  the  list  and  format  do  not  fill  the  record, 
the  unused  portion  of  the  record  is  filled  with  space  characters. 

A  WRITE  statement  can  be  used  either  to  write   a   new   record   or   to 
update  an  existing  record. 

An  example  follows. 

WRITE(2'35,10)  (NUM (K)  ,K  =  1 ,10) 
10    FORMAT(10T2) 

These  statements  write  1  record,  consisting  of  10  fields,  to  record  35 
of  the  file  connected  to  logical  unit  2. 


READ 


7.4.3   Unformatted  Direct  Access  Input  Statement 

The  unformatted  direct  access  READ  statement  transfers   the  specified 

record   from   the   file  currently  connected  to  the  specified  unit,  and 

assigns  the   untranslated   fields   of   the   record   to   the  I/O   list 
elements. 

The  unformatted  direct  access  READ  statement  has  the  following  form: 
READ  (u'r [,ERR=s] )   [list] 


4J 


A  logical  unit  number, 


The  record  number. 


list 


The  label  of  an  executable  statement. 


An  I/O  list. 
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If  the  I/O  list  does  not  use  all  the  fields  in  the  record  (that  is, 
there  are  more  fields  in  the  record  than  elements  in  the  list),  the 
remainder  of  the  record  is  discarded.  If  the  number  of  list  elements 
is  greater  than  the  number  of  record  fields,  an  error  occurs. 

Examples  of  unformatted  direct  access  input  statements  follow. 

READ  (I'lO)  LIST(l) ,LIST(8) 

This  statement  reads  record  10  of  a  file  on  logical  unit  1,  and 
assigns  2  integer  values  to  specified  elements  of  array  LIST. 

READ  (4'IREC)  (RHO (N)  ,N  =  1 ,  5 ) 

This  statement  reads  the  record  specified  by  the  value  of  I REC  of  a 
file  on  logical  unit  4,  and  assigns  5  real  values  to  array  RHO. 


WRITE 


7.4.4   Unformatted  Direct  Access  Output  Statement 

The  unformatted  direct  access  WRITE  statement  transfers  the 
untranslated  values  of  the  elements  in  the  I/O  list  to  the  specified 
record  of  the  file  currently  connected  to  the  specified  unit. 

The  unformatted  direct  access  WRITE  statement  has  the  following  form: 

WRITE  (u'r [,ERR=s])  [list] 

u 

A  logical  unit  number. 

r 

The  record  number. 


An  executable  statement  label. 


list 


An  I/O  list. 


If  the  values  specified  by  the  I/O  list  do  not  fill   the   record,   the 
unused  portion  of  the  record  is  filled  with  zeroes. 

If  the  I/O  list  specifies  more  data  th.in  can  fit  into  the   record,   an 
error  uccurs. 

You  can  use  a  WRITE  statement  either  to   write   a   new   record   or   to 
update  an  existing  record. 

Example: 

WRITE  (2*35)  (NUM(K)  ,K=1,10) 

This  statement  outputs  10  integer  values  to   record   35   of   the   file 
connected  to  logical  unit  2. 
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7.5   KEYED  INPUT/OUTPUT 


Keyed  input/output  statements  transfer  records  to  and  from  indexed 
files.  These  statements  are  specified  by  data  values,  called  keys, 
within  the  records.  The  OPEN  statement  (Section  9.1)  establishes  the 
attributes  of  the  indexed  file. 

Formatted  keyed  I/O  statements  transfer  records,  using  format 
specifiers  to  control  translation  of  data  between  internal  and 
external  form. 

Unformatted  keyed  I/O  statements  transfer  records  of  binary  data 
without  translation. 

Section  7.2.4  describes  the  selection  algorithm  for  locating  records 
in  an  indexed  file. 


READ 


7.5.1   Formatted  Keyed  Input  Statement 

The  formatted  keyed  READ  statement  transfers  a  record  having  the 
specified  key  from  the  indexed  file  currently  connected  to  the 
specified  unit.  The  characters  in  the  record  are  translated  to 
internal  form  according  to  the  format  specifier.  The  resulting  values 
are  assigned  to  the  elements  of  the  I/O  list. 

The  formatted  keyed  READ  statement  has  the  following  form: 

READ  (u,f,  (key   )  =kv[,KEYID=kn] [,ERR=s]) [list] 

)keyeq( 


I 


KEYGE( 
KEYGT  1 


f 

kv 
kn 


A  logical  unit  number. 

A  format  specifier. 

A  key  expression. 

A  key-o£-ref erence  number. 

The  label  of  an  executable  statement. 


list 


An  I/O  list. 
The  KEY,  KEY!"   and  ERR  specifiers  may  appear  in  any  order. 

If  the  I/O  list  and  format  do  not  use  all  the  fields   of   the   record, 
the  remainder  of  the  record  is  discarded. 
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If  the  KEYID  specifier  is  omitted,  the  key-of -reference 
from  previous  keyed  I/O  statements. 


is   unchanged 


You  can  use  formatted  sequential  READ  statements  to  read  additional 
records  with  increasing  key  values  in  the  key-of-ref erence.  If  the 
I/O  list  and  format  specify  additional  records,  formatted  sequential 
READ  statements  are  executed  to  read  the  additional  records. 


WRITE 
REWRITE 


7.5.2   Formatted  Kayed  Output  Statements 

The  formatted  keyed  WRITE  statement  writes  a  new  record  to  the  indexed 
file  currently  connected  to  the  specified  unit.  The  values  in  the  I/O 
list  are  translated  to  characters  and  edited  according  to  the  format 
specifier.  The  characters  occupying  key  field  positions  in  the  record 
constitute  the  keys. 

The  formatted  keyed  REWRITE  statement  rewrites  a  record  into  the  same 
position  in  the  file  as  the  record  located  by  the  last  ■  xecution  of  a 
READ  statement  on  the  specified  unit.  The  values  in  the  I/O  list  are 
translated  to  characters  and  edited  according  to  the  format  specifier. 
The  characters  occupying  key  field  positions  in  the  record  constitute 
the  keys. 

The  formatted  keyed  output  statements  have  the  following  forms: 

WRITE(u,f [,ERR=s]) [list] 

REWRITE(u,f [,ERR=s]) [list] 


A  logical  unit  number. 


A  format  specifier. 


list 


The  label  of  an  executable  statement. 


An  I/O  list. 


If  the  values  specified  by  the  list  and  format  do  not  fill  the  record, 
the  unused  portion  of  the  record  is  filled  with  space  characters. 

A  WRITE  statement  always  adds  a  new  recorc"  to  the  file.  If  the  I/O 
list  and  format  specify  additional  records,  these  records  are  inserted 
according  to  the  key  values  contair.ed  within  each  record. 

A  REWRITE  statement  always  rewrites  an  existing  record  within  the 
file.  An  error  occurs  it  a  REWRITE  statement  is  executed  and  there  is 
no  current  record  on  the  specified  unit.  Note  that  the  REWRITE 
statement  completely  replaces  the  record.  If  the  I/O  list  and  format 
specify  additional  records,  an  error  occurs.  If  the  record  rewritten 
is  shorter  than  the  original  record,  the  remainder  of  the  original 
record  is  lost. 
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READ 


7.5.3   Unformatted  Keyed  Input  Statement 

The  unformatted  keyed  READ  statement  transfers  a  record  having  the 
specified  key  from  the  indexed  file  currently  connected  to  the 
specified  unit.  The  fields  of  the  record  are  assigned  untranslated  to 
the  elements  of  the  I/O  list. 

The  unformatted  keyed  READ  statement  has  the  following  form: 

READ(u,   (key   )  =kv[,KEYID=kn] [,ERR=s]) [list] 

)keyeq( 

KEYGE( 
KEYGTJ 


kv 


kn 


A  logical  unit  number. 

A  key  expression. 

A  key-of-reference  number. 

The  label  of  an  executable  statement. 


list 


An  I/O  list. 

The  KEY,  KEYID,  and  ERR  specifiers  may  appear  in  any  order. 

If  the  I/O  list  does  not  use  all  the  fields  of  the  record,  the 
remainder  of  the  record  is  discarded.  If  the  number  of  list  elements 
is  greater  than  the  number  of  record  fields,  an  error  occurs. 

If  tho  KEYID  specifier  is  omitted,  the  key-of-reference  is  unchanged 
from  previous  keyed  I/O  statements. 

You  can  use  unformatted  sequential  READ  statements  (Section  7.5.1)  to 
read  additional  records  with  increasing  key  values  in  the 
key-of-reference. 


WRITE 
REWRITE 


7.5.4   Unformatted  Keyed  Output  Statement 


The  unformatted  keyed  WRITE  statement  writes  a  new  record  to  the 
indexed  file  currently  connected  to  the  specified  unit.  The  values  in 
the  I/O  list  are  assigned  untranslated  to  the  fields  of  the  record. 
The  data  bytes  occupying  key  field  positions  in  the  record  constitute 
the  keys. 
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The  unformatted  keyed  REWRITE  statement  rewrites  a  record  into  the 
same  position  in  the  file  as  the  record  located  by  the  last  execution 
of  a  READ  statement  on  the  specified  unit.  The  values  in  the  I/O  list 
are  assigned  untranslated  to  the  fields  of  the  record.  The  data  bytes 
occupying  key  field  positions  in  the  record  constitute  the  keys. 

The  unformatted  keyed  output  statements  have  the  following  forms: 

WRITE(u[,ERR=s] ) [list] 

REWRITE  (u[,ERR=s]) [list] 


A  logical  unit  number. 


list 


The  label  of  an  executable  statement. 


An  I/O  list. 


If  the  values  specified  by  the  list  do  not  fill  the  record,  the  unused 
portion  of  the  record  is  filled  with  zeroes.  If  the  list  specifies 
more  data  than  can  fit  into  the  record,  an  error  occurs. 

A  WRITE  statement  always  adds  a  new  record  to  the  file,  while  a 
REWRITE  statement  always  rewrites  an  existing  record  within  the  file. 
An  error  occurs  if  a  REWRITE  statement  is  executed  when  there  is  no 
record  on  the  specified  unit.  Note  that  the  REWRITE  statement 
completely  replaces  the  record.  If  the  record  rewritten  is  shorter 
than  the  original  record,  the  remainder  of  the  original  record  is 
lost. 


ENCODE 
DECODE 


7.6   ENCODE  AND  DECODE  STATEMENTS 

The  ENCODE  and  DECODE  statements  transfer  data  according  to  format 
specifiers,  translating  the  data  from  internal  to  character  form,  and 
vice  versa.  Unlike  conventional  formatted  I/O  statements,  however, 
these  data  transfers  take  place  entirely  between  variables  or  arrays 
in  the  FORTRAN  program. 

The  ENCODE  and  DECODE  statements  have  the  following  forms: 


ENCODE(c, f ,b[,ERR=s] ) [list] 
DECODE(c, f ,b[,ERR=s] )  [list] 


An  integer  expression.  In  the  ENCODE  statement,  c  is  the  number 
of  characters  (bytes)  to  be  translated  to  character  form.  In  the 
DECODE  statement,  c  is  the  number  of  characters  to  be  translated 
to  internal  torm.  It  corresponds  to  the  length  of  a  formatted 
record. 
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A  format  specifier, 
error  occurs. 


If  more  than  one   record   is   specified. 


an 


The  name  of  an  array,  array  element  or  variable.  b  corresponds 
to  a  formatted  record.  In  the  ENCODE  statement,  b  receives  the 
characters  after  translation  to  external  form.  In  the  DECODE 
statement,  it  contains  the  characters  to  be  translated  to 
internal  form. 


The  label  of  an  executable  statement. 


list 


An  I/O  list  (see  Section  7.2.6). 
I/O   list   contains   the  data  to 
In  the   DECODE   statement,   the 
translation  to  internal  form. 


In  the  ENCODE  statement,  the 
be  translated  to  character  form, 
list   receives   the   data   after 


Similar  to  a  WRITE  statement,  the  ENCODE  statement  translates  the  list 
elements  to  character  form  according  to  the  format  specifier,  and 
stores  the  characters  in  b.  If  fewer  than  c  characters  are 
transmitted,  the  remaining  character  positions  are  filled  with  spaces., 

Similar  to  a  READ  statement,  the  DECODE  statement  translates  the 
character  data  in  b  to  internal  (binary)  form  according  to  the  format 
specifier,  and  stores  this  data  in  the  elements  in  the  list. 

If  b  is  an  array,  its  elements  are  processed  in  the  order  of  subscript 
progression.  The  record  buffer  b  must  not  be  the  name  of  a  virtual 
array  or  a  virtual  array  element  (see  Section  5.5). 

The  number  of  characters  that  the  ENCODE  or  DECODE  statement  can 
process  depends  on  the  data  type  of  b  in  that  statement.  For  example, 
since  an  INTEGER*2  array  can  contain  2  characters  per  element,  the 
maximum  number  of  characters  is  twice  the  r-imber  of  elements  in  that 
array. 

The  interaction  between  the  format  specifier  and  the  I/O  list  (see 
Section  8.7)  for  an  ENCODE  or  DECODE  statement  is  the  same  as  that  for 
a  formatted  I/O  statement. 

An  example  of  the  ENCODE  and  DECODE  statements  follows. 

DOUBLE  PRECISION  INBUF,  OUTBUF 
INTEGER*2  A,B,C,D 
DATA  INBUF/'12345678'/ 
DECODE  (8, 100, INBUF)  A,B,C,D 
ENCODE  (8, 100, OUTBUF)  D,C,B,A 
100   FORMAT  (412) 


The  DECODE  statement  translates  the  8  characters 
form  (specified  by  statement  i""*  — '  -•--- 
variables  A,B,C,D,  as  follows: 


100),   and 


in  INBUF   to   integer 
stores  Lhem  in  the  integer 


A 

= 

12 

B 

= 

34 

C 

= 

56 

D 

m 

78 

The  ENCODE  statement  translates  the  values  D,C,B,A  to   character 
and  stores  the  characters  In  the  variable  OUTBUF,  as  follows: 

OUTBUF  «  '78563412' 


form 
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FORMAT  statements  are  nonexecutable 
statements,  and  with  ENCODE  and 
editing  and  formatting  of  the  data. 
DECODE  statement  is  being  executed. 


statements  used  with  formatted  I/O 
DECODE  statements,  to  specify  the 
If  input  is  being  performed  or   a 

the  format  statement  describes  the 


format  in  which  the  input  data  is  interpreted, 
performed   or   an  ENCODE   statement   is   being 
statement  describes  the  format   in   which   the 
represented. 


If   output   is   being 

executed,   the  format 

output   data   will   be 


Throughout  this  chapter  a  distinction  is  made  between  "external"  and 
"internal"  form.  External  form  refers  to  the  ASCII  characters  in  a 
data  field  of  a  formatted  record.  Internal  form  refers  to  the  binary 
representation  of  a  data  value. 

FORMAT  statements  have  the  following  form: 

FORMAT  (qlflslf2s2  ...   fnqn) 


q 

£ 


Zero  or  more  slash  (/)  record  terminators. 


A  field  descriptor  or  a  group  of  field  descriptors   enclosed   in 
parentheses. 


A  fi&ld  separator. 

The  entire  list  of  field  descriptors,  field  separators,,  and  record 
terminators,  including  the  parentheses,  is  called  the  format 
specification.   The  list  must  be  enclosed  in  parentheses. 

The  field  separators  are  comma  and  slash.  A  slash  is  also  a  record 
terminator.  Section  8.5  describes  in  detail  the  functions  of  the 
field  separators. 

A  field  descriptor  has  the  following  form; 

[r]c[w[.d]] 

r 

The  number  of  times  the   field  descriptor   is   to  be   repeated 
(repeat  count).   If  you  omit  r,  it  is  assumed  to  be  1. 


# 


A  field  descriptor  code  (I ,0,F,E ,D,G ,L,A,H ,X ,T,P ,0,$ ,  or  :). 
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W 


The  external  field  width. 


The  number  of  characters  to  the  right  of  the  decimal  point. 

The  terms  r,  w,  and  d  must  all  be  unsigned  integer  constants.  r,  w, 
and  d  must  be  less  than  or  equal  to  255;  and  r  and  w  must  be  nonzero. 
The  r  term  is  optional;  however,  you  cannot  use  it  in  some  field 
descriptors.  The  d  term  is  required  in  some  field  descriptors  and  is 
invalid  in  others. 

You  are  not  allowed  to  use  parameter  constants  for  the  terms  r,  w,  or 
d. 

The  field  descriptors  are: 

Integer  —  Iw,  Ow 

Logical  —  Lw 

Real,  double  precision,  and  complex  —  Fw.d,  Ew.d,  Dw.d,  Gw.d 

Character  —  Aw 

Editing,  and  Hollerith  constant  —  nH ,  '...',  nX ,  Tn,   nP ,   Q, 
$,  :   (n  is  a  number  of  characters  or  character  positions) 

Section  8.1  describes  each  field  descriptor  in  detail. 

The  first  character  in  an  output  record  generally  contains  carriage 
control  information.   See  Section  8.3  for  more  information. 

During  data  transfers,  the  format  specification  is  scanned  from  left 
to  right.  The  elements  in  the  I/O  list  are  correlated  one-for-one 
with  the  corresponding  field  descriptors.  However,  the  editing  and 
Hollerith  constant  field  descriptors  do  not  require  an  I/O  list 
element. 

Section  8.7  describes  in  detail  the  interaction  between  format 
specifiers  and  the  I/O  list. 

You  use  an  I,  0,  or  L  field  descriptor  to  process  integer  and  logical 
data.  You  use  an  F,  E,  D,  or  G  field  descriptor  to  process  real, 
double  precision,  and  complex  data. 

Section  8.8  summarizes  the  rules  for  writing  FORMAT  statements. 

You  can  create  a  format  during  program  execution  by  using  a  run-time 
format  instead  of  a  FORMAT  statement.  Section  8.6  describes  run-time 
f  o  r  ma  t  s . 


8.1   FIELD  DESCRIPTORS 

A  field  descriptor  describes  the  size  and  format  of  a  data  item  or  of 
several  data  items;  each  data  item  in  the  external  medium  is  called 
an  external  field.  The  following  sections  describe  each  of  the  field 
descriptors  in  detail.  The  field  descriptors  ignore  leading  spaces  in 
the  external  field,  but  treat  embedded  and  trailing  spaces  ab  zeroes. 
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8.1.1   I  Field  Descriptor 

The  I  field  descriptor  specifies  transfer  of  decimal   integer   values. 
It  has  the  following  form: 

Iw 

The  corresponding  I/O  list   element   must   be   of   either   integer   or 
logical  data  type. 

Rules  in  Effect  for  Data  Input 

•  The  I  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  a  decimal  integer 
value,  and  assigned  to  the  corresponding  I/O  list  element. 


The  external  data  must  be   an   integer   constant; 
contain  a  decimal  point  or  exponent  field. 


it   cannot 


•  If  the  external  data  value  exceeds  the  maximum  allowed 
magnitude  of  the  corresponding  list  element,  an  error  occurs. 

•  If  the  first  nonblank  character  of  the  external  field  is  a 
minus  sign,  the  field  is  treated  as  a  negative  value. 

•  If  the  first  nonblank  character  is  a  plus  sign,  or  if  no  sign 
appears  in  the  field,  the  field  is  treated  as  a  positive 
va lue. 

•  An  all-olank  field  is  treated  as  a  value  of  0. 


"•«*•  Example: 

Fo.  >t 

Ext 

ernal  Field 

Internal 

Value 

14 
13 

i< 

2788 
-26 

AAAAAA312 

2aa8 

2788 
-26 
312 

2008 

Rules  in  Effect,  for  Data  Output 

•  The  I  field  descriptor  specifies  output  of  the  value  of  the 
corresponding  I/O  list  element,  right  justified,  to  an 
external  field  w  characters  long,  as  a  decimal  integer. 

•  If  the  value  does  not  fill  the  field,  leading  spaces  are 
inserted. 

•  If  the  value  exceeds  the  field  width,  the  entire  field  is 
filled  with  asterisks. 

•  If  the  value  of  the  list  element  is  negative,  the  field  will 
have  a  minus  sign  a=;  its  leftmost,  nonblank  character.  The 
term  w  must  therefore  be  large  enough  to  provide  for  a  minus 
sign,  when  necessary. 

•  Plus  signs  are  suppressed. 
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Output  Example: 

Format 

Internal  Value 

13 

284 

14 

-284 

15 

174 

12 

3244 

13 

-473 

17 

29.812 

External  Representation 

284 
-284 

AA174 

*** 
Not  permitted:  error 


8.1.2   0  Field  Descriptor 

The  0  field  descriptor  specifies  transfer  of  octal  integer  values.   It 
has  the  following  form: 


Ow 

The  corresponding  I/O  list   eleirent   must   be   of   either   integer   or 
logical  data  type. 

Rules  in  Effect  for  Data  Input 

•  The  0  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  an  octal  value,  and 
assigned  to  the  corresponding  I/O  list  element. 

•  The  external  field  can  contain  only  the  numerals  C  through  7; 
it  cannot  contain  a  sign,  a  decimal  point,  or  an  exponent 
field. 

•  An  all-blank  field  is  treated  as  a  value  of  0. 

•  If  the  value  of  the  external  data  exceeds  the  allowed  size  of 
the  corresponding  list  element,  an  error  occurs. 


Input  Example: 


Format 


External  Field 


Internal 
Decimal  Value 


05 
04 
06 
03 


77777 
31274 
15AAAA 
97A 


32767 
1623 
53248 
Not  permitted:  error 


Rules  in  Effect  for  Data  Output 


The  0  field  descriptor  specifies  output  of  the  octal  value  of 
the  corresponding  ^/O  list  elemant,  light  justified,  to  an 
external  field  w  characters  long,  as  an  octal  integer. 

No  signs  are  output;  a  negative  value  is  transmitted  in  its 
octal  (2's  complement)  form. 

If  the  value  does  not  fill  the  field,  leading  spaces  are 
inserted. 

If  the  value  exceeds  the  field  width,  the  entire  field  is 
filled  with  asterisks. 
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Output  Example: 

Format     Internal  (Decimal)  Value 


06  32767 

06  -32767 
02  14261 

04  27 

05  13.52 


External  (octal) 
Representation 

A77777 
100001 
** 

AA33 

Not  permitted:  error 


8.1.3   F  Field  Descriptor 

The  F  field  descriptor  specifies  the  transfer  of  real  or  double 
precision  values.   It  has  the  following  form: 

Fw.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  d.  a  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Data  Input 

•  The  F  field  descriptor  specifies  that  w  characters  are  read 
from  the  external  field,  interpreted  as  a  real  or  double 
precision  value,  and  assigned  to  the  corresponding  I/O  list 
element.  Any  decimal  point,  signs,  or  exponent  field  present 
in  the  external  field  are  included  in  the  w  count,  and  d  is 
part  of  w. 

•  If  the  w  characters  include  a  decimal  point,  the  position  of 
the  point  is  used.  If  the  w  characters  do  not  include  a 
decimal  point,  the  decimal  point  is  placed  before  the 
rightmost  d  digits  of  w. 

•  If  the  w  characters  include  an  exponent  field  (see  Section 
2.3.2  for  real  constants  and  Section  2.3.3  for  double 
precision  constants),  the  exponent  is  used  to  evaluate  the 
number's  magnitude  before  the  decimal  point  position  is 
determined. 

•  If  the  first  nonblank  character  of  the  external  field  is  a 
minus  sign,  the  field  is  treated  as  a  negative  value. 

•  If  the  first  nonblank  character  is  a  plus  sign,  or  if  no  sign 
appears  in  the  field,  the  field  is  treated  as  a  positive 
va  lue. 

An  all-blank  field  is  treated  as  a  value  of  0. 

w  must  be  greater  than  or  equal  to  d+1. 


•  An  all- 

•  w  must 

Inpu 

t  Examples: 

Format 

F8.5 

F8.5 

F8.5 

F5.2 

External  Field 

123456789 
-1234.567 
24.77E+2 
1234567.89 


Internal  Value 

123.45678 
-1234.56 
2477.0 
123.45 
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Rules,  in  Effect  for  Data  Output 

•  The  F  field  descriptor  transfers  the  value  of  the 
corresponding  I/O  list  element,  rounded  to  d  decimal  positions 
and  right  justified,  to  an  external  field  w  characters  long. 

•  If  the  value  does  not  fill  the  field,  leading  spaces  are 
inserted. 

•  If  the  value  exceeds  the  field  width,  the  entire  field  is 
filled  with  asterisks. 


Plus  signs  are  suppressed. 

w  must  be  greater  than  or  equal  to  d+1;  however,  the  field 
width  should  be  large  enough  to  contain  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  the  number  of 
digits  to  the  left  of  the  point,  plus  1  for  a  possible 
negative  sign. 


Output  Examples; 

Format 


F8. 

5 

F9. 

3 

F2 

.1 

F10.4 

F5 

.2 

F5 

.2 

Internal  Value 

2.3547188 

8789.7361 

51.44 

-23.24352 

325.013 

-.2 


External  Representation 


A2. 35472 

A8789.736 

** 

AA-23.2435 
***** 

-0.20 


8.1.4   E  Field  Descriptor 

The  E  field  descriptor  specifies  transfer  of  real  or  double  precision 
values  in  exponential  form.   It  has  the  following  form: 

Ew.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 


Rules  in  Effect  for  Input 

On  input,  the  E  field  descriptor  does  not   differ   from   the   F 
descriptor. 


field 


nput 

Examples: 

Format 

E9.3 

E12.4 

E15.3 

E12.5 

External  Field 

734.432E3 
AA1022.43E-6 
52.3759663AAAAA 
210.5271D+10 


Internal  Value 

0.734432E+6 
0.102243E-2 
0.523759E+2 
0.2105271E+13 


In  the  last  example,  note  that  the  E  field  descriptor  treats  the  D 
exponent  field  indicator  as  an  E  indicator  if  the  I/O  list  element  is 
single  precision. 
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Rules  in  Effect  for  Output 

•  The  E  field  descriptor  transfers  the  value  of  the 
corresponding  I/O  list  element,  rounded  to  d  decimal  digits 
and  right  justified,  to  an  external  field  w  characters  long. 

•  If  the  value  does  not  fill  the  w  characters,  leading  spaces 
are  inserted. 

•  If  the  value  exceeds  the  w  characters,  the  entire  field  is 
filled  with  asterisks. 

•  Output  is  in  a  standard  form:  that  is,  a  minus  sign  if  the 
value  is  negative,  an  optional  0,  a  decimal  point,  d  digits  to 
the  right  of  the  decimal  point,  and  a  4-character  exponent  in 
one  of  the  following  two  forms: 

E+nn 
E-nn 


nn 


A  2-digit  integer  constant. 


Plus  signs  are  suppressed. 

w  must  be  greater  than  or  equal  to  d+7;  that  is,  the  field 
width  must  not  be  stated  to  be  less  than  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  1  for  the  0  before 
the  point,  plus  one  for  a  possible  negative  sign,  plus  4  for 
the  exponent. 


Output  Examples: 

Format 

E9.2 

E12.5 

E12.3 

E10.3 

E5.3 

Internal  Value 

475867.222 
475867.222 

0.00069 
-0.5555 
56.12 


External  Representation 

A0.48E+06 

A0.47587E+06 

AAA0.690E-03 

-0.556E+00 
***** 


8.1.5  D  Field  Descriptor 

The  D  field  descriptor  specifies  transfer  of  real  or  double  precision 
values  in  exponential  form  with  a  D  instead  of  an  E.  It  has  the 
following  form: 

Dw.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Input 

On  input,  the  D  field  descriptor  does  not  differ  from  the  F  or  E  field 
descriptors. 
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Input 

Examples 

Format 

D10.2 

D10.2 

D15.3 

External  Field 

1234  5AAAAA 
AAl 2  3.4  5AA 
367.4981763D-C4 


Internal  Value 

0.1234500000D+8 
0.1234500000D+3 
0.3674981763D-1 


Rules  in  Effect  for  Input 

There  is  only  one  difference  between  the  D  and  E  descriptors  on 
output:  If  you  use  the  D  descriptor,  the  letter  D  is  output  instead 
of  the  letter  E. 


Output  Examples: 

Format 

D14.3 

D23.12 

D9.6 

Internal  Value 

0.0363 
5413.87625793 
1.2 


External  Value 

AAAAA0.363D-01 

AAAAAO. 54 138762 579 3D+04 

********* 


8.1.6   G  Field  Descriptor 

The  G  field  descriptor  specifies  transfer  of  real  or  double  precision 
values,  combining  E-  or  F-type  formats  according  to  the  size  of  the 
number  being  output.   It  has  the  following  form: 

Gw.d 

The  corresponding  I/O  list  element  must  be  of  either  real  or  double 
precision  data  type;  or  it  must  be  either  the  real  or  the  imaginary 
part  of  a  complex  data  type. 

Rules  in  Effect  for  Input 

On  input,  the  G  field  descriptor  does  not  differ  from  the  F,  E,  or  D 
descriptors. 

Rules  in  Effect  for  Output 

•  The  G  field  descriptor  transfers  the  value  of  the 
corresponding  I/O  list  element,  rounded  to  d  decimal  positions 
and  right  justified,  to  an  external  field  w  characters  long. 

•  The  form  in  which  the  value  is  written  is  a  function  of  the 
magnitude  of  the  value,  as  described  in  Table  8-1. 
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Table  8-1 
Effect  of  Data  Magnitude  on  G  Formats 


Data  Magnitude 

Effective  Conversion 

m  <  0.1 
0.1  <_  m   <    1.0 
1.0  <_  m  <  10.0 

• 
■ 
• 

lOd-2  £  m  <  lOd-1 
lOd-1  £  m  <  lOd 
m  >  lOd 

Ew.d 
F(w-4).d,  'AAAA' 
F(w-4)  .  (d-l)  ,  'AAAA' 

• 
• 
• 

F(w-4).l,  'AAAA' 
F(w-4).0,  'AAAA' 
Ew.d 

NOTE:   The  'AAAA'  in  the  second  column  of   Table   8-1   specifies   that 
four  spaces  are  to  follow  the  numeric  data  representation. 

•  Plus  signs  are  suppressed. 

•  w  must  be  greater  than  or  equal  to  d+7;  that  is,  the  field 
width  must  not  be  stated  to  be  less  than  the  number  of  digits 
after  the  point,  plus  1  for  the  point,  plus  1  for  a  possible  0 
before  the  point,  plus  1  for  a  possible  negative  sign,  plus  4 
for  a  possible  exponent. 


Output  Examples 

Format 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

G13 

.6 

Internal  Value 

0.01234567 

-0.12345678 

1.23456789 

12.34567890 

123.45678901 

-1234.56789012 

12345.67890123 

123456.78901234 

1234567.89012345 


External  Representation 


aO.123 
-0.123 
AAl . 2  3 
AA12.3 
AAl 2  3 . 
A-1234 
AAl  2  34 
AAl 2 34 
-0.123 


457E-01 
4 57 AAAA 
457AAAA 
4 57 AAAA 
457AAAA 
.57AAAA 
5.7AAAA 
57  .AAAA 
457E+07 


Compare    the   above    examples   with    the    following   examples,    which   show    the 
same   values   output   with   an   equivalent   F    field   descriptor. 


Format 

F13.6 
F13.6 
F13.6 
F13.6 
F13.6 
F13.6 
F13.6 
F13.6 
Fi3.6 


Internal  Value 

0.01234567 

-0.12345678 

1  .23456789 

12. 34567390 

123.45678901 

-1234.56789012 

12345.67890123 

123456.78901234 

•1234567.89012345 


External  Representation 


AaaaaO 

AAAA-0 

AAAAAl 

AAAA12 

AAA123 

A-12  34 

A12345 

123456 
****** 


.012346 

.123457 

.234568 

.345679 

.456789 

.567890 

.678901 

.789012 
******* 
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8.1.7   L  Field  Descriptor 

The  L  field  descriptor  specifies  transfer  of  logical  data.   It  has  the 
following  form: 

Lw 

The  corresponding  I/O  list   element   must   be  of   either   integer   or 
logical  data  type. 

Rules  in  Effect  for  Input 

•   The  L  field  descriptor  specifies  that  w   characters   are   read 
from  the  external  field. 


•  If  the  first  nonblank  character  of  the  field  is  the  letter  T 
or  t,  the  value  .TRUE.  is  assigned  to  the  corresponding  I/O 
list  element. 

•  If  the  first  nonblank  character  of  the  field  is  the  letter  F 
or  f,  or  if  the  enti'3  field  is  blank,  the  value  .FALSE.  is 
assigned. 

•  Any  other  value  in  the  external  field  produces  an  error. 
Rules  in  Effect  for  Output 

•  The  L  field  descriptor  specifies  output  of  either  the  letter  T 
(if  the  value  of  the  corresponding  I/O  list  element  is 
.TRUE.),  or  the  letter  F  (if  the  value  is  .FALSE.)  to  an 
external  field  w  characters  long. 

•  The  letter  T  or  F  is  in  the  rightmost  position  of  the  field, 
preceded  by  w-1  spaces. 


Output  Examples: 

Format 

L5 
Li 


Internal  Value 

.TRUE. 
.FALSE. 


External  Representation 

AAAAT 
F 


8.1.8   A  Field  Descriptor 

The  A  field  descriptor  specifies  the  transfer  of  Hollerith  values.   It 
has  the  following  form: 

Aw 

The  corresponding  I/O  list  element  can  be  of  any  data  type,  since   you 
can  use  variables  of  any  data  type  to  store  Hollerith  data. 

The  value  of  w  must  be  less  than  or  equal  to  ?55. 
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Rules  in  Effect  for  Input 

•  The  A  fielcJ  descriptor  transfers  w  characters  from  the 
external  record  and  assigns  them  to  the  corresponding  I/O  list 
element. 

•  The  maximum  number  of  characters  that  can  be  stored  depends  on 
the  size  of  the  I/O  list  element,  as  follows: 


I/O  List 
Element 


Maximum  Number 
of  Characters 


BYTE 

L0GICAL*1 

LOGICAL* 2 

L0GICAL*4 

INTEGER* 2 

INTEGER*4 

REAL 

REAL*8 

DOUBLE  PRECISION 

COMPLEX 


1 
1 

4 
2 
4 
4 
8 
8 
8 


If  w  is  greater  than  the  maximum  number  of  characters  that  can 

be   stored   in   the   corresponding   I/O  list  element,  only  the 

rightmost  characters  are  assigned  to  that  element.  Leftmost 
excess  characters  are  ignored. 

If  w  is  less  than  the  number  of  characters  that  can  be  stored, 
w  characters  are  assigned  to  the  list  element,  left  justified, 
and  trailing  spaces  are  added  to  fill  the  element. 


Input  Examples! 

Format 

A6 
A6 
A6 

A6 


External  Field 

PAGEA# 
PAG  EA# 
PAGEA# 
PAG  EA# 


Internal  Value 

#  (LOGICAL*!) 

A#  (INTEGER*2) 

GEA#  (REAL) 

PAGEA#AA  (DOUBLE  PRECISION) 


Rules  in  Effect  for  Output 

•  The  A  field  descriptor  specifies  output  of  the  contents  of  the 
corresponding  I/O  list  element  to  an  external  field  w 
characters  long. 

•  If  w  is  greater  than  the  size  of  the  list  element,  the  data 
appears  in  the  field,  right  justified,  with  leading  spaces. 

•  If  w  is  less  than  the  size  of  the  list  element,  only  the 
lafcmoyt  w  characters  are  transferred. 


Output  Examples: 

Format 

Internal  Value 

dxternal  Representation 

AS 
AS 
AS 

OHMS 

VOLTSAAA 

AMPERESA 

AOHMS 
VOLTS 
AMPER 
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8.1.9   H  Field  Descriptor 

The  H  field  descriptor  specifies  transfer  of  data  between  the  external 
record  and  the  storage  location  of  the  H  field  descriptor  itself.  It 
has  the  form  of  a  Hollerith  constant: 


nHclc2c3 


en 


n 


ci 


The  number  of  characterc  to  be  transferred. 


An  ASCII  character. 


Rules  in  Effect  for  Input 

•  The  H  field  descriptor  specifies  acceptance  of  n  characters 
from  the  e-ternal  field  and  their  assignment  to  the  same 
storage  location  as  the  characters  of  the  H  descriptor,  which 
are  overlaid  by  the  input  data,  character  for  character. 


Rules  in  Effect  for  Output 

•  The  H  field  descriptor  specifies  output  of   the 
following  the  letter  H  to  the  external  field. 


characters 


An  example  of  H  field  descriptor  usage  follows. 


100 


200 


TYPE   100 

FORMAT  ( 41HAENTERAPR0GRAMATITLE ,AUPATOA20ACHARACTERS) 

ACCEPT   200 

FORMAT  (20HAATITLEAGOESAHEREAAA) 


The  TYPE  statement  transfers  the  characters  from  the  "  field 
descriptor  in  statement  100  to  the  user's  terminal.  Tne  ACCEPT 
statement  accepts  the  response  from  the  keyboard,  placing  the  input 
data  in  the  H  field  descriptor  in  statement  200.  The  new  characters 
replace  the  words  TITLE  GOES  HERE.  If  the  user  enters  less  than  20 
characters,  the  remainder  of  the  H  field  descriptor  is  filled  with 
spaces  to  the  right.  The  H  field  descriptor  may  also  be  specified  as 
an  alphanumeric  literal. 


In   an   alphanumeric   literal,   the   apostrophe   is  written   as    two 
apostrophes.   For  example'. 

50    FORMAT  ( ' TODAY '  ' SADATEAIS : A' , I  2 , '/ ' , I  2 , ' / ' , I  2 ) 

A  pair  of   apostrophes   used   in   this  way   is   considered   a   single 
character. 


8.1.10  X  Field  Descriptor 

The  X  field  descriptor  specifies  skipping  character  positions.   It  has 
the  following  form: 

nX 


The  term  n  specifies  how  man/  character  positions  are  to  be  skipped. 
The  value  of  n  must  be  greater  than  or  equal  to  1  and  less  than  or 
equal  to  255. 
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Rules  in  E££ect  for  Input 

•  The  X  field  descriptor  specifies  that  the  next  n  characters  in 
the  input  record  are  to  be  skipped. 

Rules  in  Effect  for  Output 

•  The  X  field  descriptor  specifies  output  of   n   spaces   to   the 
external  record.   For  example: 

WRITE  (6,90)  NPAGE 
90    FORMAT  { 13H1 PAGEANUMBERA,  I  2 ,16X ,23HGRAPHICAAN ALYSIS ,AC0NT . ) 

The  WRITE  statement  prints  a  record  similar  to: 

PAGE  NUMBER  nn  GRAPHIC  ANALYSIS,  CONT. 

where  nn  is  the  current  value  of  the  variable  NPAGE.  Note  that  the 
numeral  1  in  the  first  H  field  descriptor  is  not  printed  but  is  used 
to  advance  the  printer  paper  to  the  top  of  a  new  page.  (Section  8.3 
describes  printer  carriage  control.) 


8.1.11   T  Field  Descriptor 

The  T  field  descriptor  specifies  the  position  of  the  next  character  to 
be  treated  relative  to  the  start  of  the  external  record.  It  has  the 
following  form: 

Tn 

The  term  n  indicates  the  position  in  the  external  record  of  the  next 
character  to  be  treated.  The  value  of  n  must  be  greater  than  or  equal 
to  1  but  not  greater  than  the  number  of  characters  allowed  in  the 
record. 

Rules  in  Effect  for  Input 

•  In  an  input  statement,  the  T  field  descriptor  specifies  that 
data  is  to  be  input  starting  with  the  nth  character  position. 
For  example: 

10    FORMAT  (T7,A3,T1,A3) 
READ  (5,10)  J,K 

In  the  example,  a  3-character  string  starting  at  character  position  7 
in  the  external  record  is  read  first,  followed  by  a  3-character  string 
starting  at  character  position  1;  however,  any  order  can  be 
speci  f ied. 

Rules  in  Effect  for  Output 

•  In  an  output  statement,  the  T  field  descriptor  specifies  that 
the  data  is  to  be  output  starting  at  the  nth  character 
position  of  the  external  record.   For  example: 

PRINT  25 
25    FORMAT  (T50 , ' C0LUMNA2 ' ,T20 , 'COLUMNAl ' ) 

These  statements  will  print  "COLUMN  1"  at  position  20  and  COLUMN  2"  at 
position  50.   The  remainder  of  the  line  contains  blank  characters. 
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8.1.12  Q  Field  Descriptor 

The  Q  field  descriptor  specifies  assignment  to  the  corresponding 
variable  in  the  I/O  list  of  the  number  of  characters  in  the  input 
record  remaining  to  be  transferred  during  a  READ  operation.  It  has 
the  following  form: 


must  be  of  integer  or  logical   data 


The  corresponding  I/O  list  element 
type. 

For  example: 

READ  (4,1000)  XRAY,KK,NCHRS, (ICHR(I) ,I=1,NCHRS) 
1000  FORMAT  ( El  5 .7 , 14 ,Q ,80 Al ) 

These  input  statements  read  two  fields  into  the  variables  XRAY  and  KK . 
The  number  of  characters  remaining  in  the  record  is  stored  in  NCHRS 
and  exactly  that  many  characters  are  read  into  the  array  ICHR.  By 
placing  the  Q  descriptor  first  in  the  format  specification,  you  can 
determine  the  actual  length  of  the  input  record. 


In  an  output  statement,  the  Q  field  descriptor  has 
that  the  corresponding  I/O  list  element  is  skipped. 


no 


effect   except 


8.1.13  Dollar  Sign  Descriptor 

The  dollar  sign  character  ($)  used  as  a  field  descriptor  suppresses, 
on  output,  a  carriage  return  at  the  end  of  the  line  when  the  first 
character  of  the  line  is  a  space  or  a  plus  sign  (see  Section  8.3  on 
carriage  control  characters).  In  an  input  statement,  the  $  descriptor 
is  ignored.  The  $  descriptor  is  intended  primarily  for  interactive 
I/O;  it  leaves  the  terminal  print  position  at  the  end  of  the  text 
(rather  than  returning  it  to  the  left  margin)  so  that  a  typed  response 
will  follow  the  output  on  the  same  line. 

Thus,  the  statements: 

TYPE  100 
100   FORMAT  ( 'AENTERARADIUSAVALUEA*  ,$) 

ACCEPT  200, X 
200   FORMAT  (F6.2) 

produce  a  message  on  the  terminal  in  the  following  form: 

ENTERARADIUSAVALUE 


Your  response  (in  this  case,  12.)  can  then  go 
follows: 


on 


the   same   line,   as 


ENTERARAD I USAV ALU E  Al  2 . 

Note  that  the  $  used  as  a  carriage  control  character  accomplishes   the 
same  result.   The  following  two  formats  are  equivalent: 

200  FORMAT  ( IIHASIGNAHERE : ,$) 

200  FORMAT  ( 11H$SIGNAHERE : ) 
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8.1.14  Colon  Descriptor 

The  colon  character  (:)  used  as  a  field  descriptor  terminates  format 
control  if  no  more  items  are  in  the  I/O  list.  The  :  has  no  effect  if 
I/O  list  items  remain.   For  example: 

PRINT    100,3 

PRINT    200,4 
100   FORMAT ( 'AI=' ,12,  'AJ=',I2) 
200   FORMAT( 'AK=' ,12,: , •AL=' ,12) 

These  statements  print  the  following  two  lines: 

I=a3AJ= 
K=a4 

Section  8.7  describes  format  control  in  detail. 


8.1.15  Complex  Data  Editing 

A  complex  value  is  an  ordered  pair  of  real  values.  Therefore,  input 
or  output  of  a  complex  value  is  governed  by  two  real  field 
descriptors,  using  any  combination  of  the  forms  Fw.d,  Ew.d,  Dw.d,  or 
Gw.d. 


Rules  in  E££ect  for  Input 

•  In  an  input  statement,  the  two  successive  fields  are  read  and 
assigned  to  a  complex  I/O  list  element  as  its  real  and 
imaginary  parts,  respectively. 


Input  Examples: 

Format 

F8.5,F8.5 
E9.1,F9.3 


External  Field 

1234567812345.67 
734.432E8123456789 


Internal  Value 

123.45678,  12345.67 
734.432E8,  123456.789 


Rules  in  E£fect  for  Output 


In  an  output  statement,  the  two  parts  of  a  complex  value  are 
transferred  under  the  control  of  repeated  or  successive  field 
descriptors. 

The  two  parts  are  transferred  consecutively,  without 
punctuation  or  spacing,  unless  the  format  specifier  states 
otherwise. 


Output  Examples: 

Format 


Internal  Value 


2F8.5  2.3547188,  3.456732 

E9.2,'A,A',E5.3    47587.222,  56.123 


External  Representation 

A2. 35472  3.45673 
AO .48E+06A,A***** 


# 


8.1.16  Scale  Factor 

A  scale  factor  is  a  value  used  in  a  format  specifier  which  determines 
the  location  of  the  decimal  point  in  real,  double  precision,  or 
complex  values. 
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The  scale  factor  has  the  form: 
nP 

n 

A  signed  or  unsigned  integer  constant  in  the  range  -127  through 
+127.  It  specifies  the  number  of  positions  to  the  left  or  right 
that  the  decimal  point  is  to  move. 

Rules  in  Effect  for  both  Input  and  Output 

•  If  you  do  not  use  a  scale  factor,  a  default  scale  factor  of  OP 
applies. 

•  The  scale  factor  is  set  to  OP  at  the  start  of  every  I/O 
statement. 

•  A  scale  factor  applies  to  all  subsequent  F,  E,  D,  or  G  field 
descriptors,  until  a  new  scale  factor  is  specified. 

•  The  scale  factor  can  appear  as  a  field  descriptor.  For 
example: 

10  FORMAT  (X,  14,  E6.3,  3P,  2A3 ,  212,  2F5.3,  E8.5) 

In  the  example,  the  3P  applies  to  the  2F5.3  and  the  E8.5  but 
not  to  the  E6.3  or  the  X,  I,  or  A  descriptors. 

•  A  scale  factor  can  appear  as  a  prefix  to  an  F,  E,  D  or  G  field 
descriptor.   For  example: 

10  FORMAT  (3P2F5.3,  E8.5) 

In  the  example,  3P  applies  both  to  2F5.3  and  to  E8.5. 

•  Format  reversion  (see  Section  8.7)  has  no  effect  on  the  scale 
factor.   For  example: 

10  FORMAT  (X,  F3.2,  E3.2,  2PE4.2,  F4.2,  3PE4.2) 

In  this  example,  suppose  two  records  are  read,  reversion 
occurring  to  the  start  of  the  format.  In  the  second  record, 
the  active  scale  factor  3P  now  applies  to  F3.2. 

•  A  scale  factor  of  OP  can  be  reinstated  only  by  an  explicit  OP 
specification  in  the  format. 

Additional  Rules  in  Effect  for  Input 

•  If  the  external  field  contains  an  exponent,  the  scale  factor 
has  no  effect, 

•  If  the  external  field  does  not  contain  an  exponent,  the  scale 
factor  specifies  multiplication  of  the  data  by  10**-n  and 
assignment  of  it  to  the  corresponding  I/O  list  element. 

For  example,  a  2P  scale  factor  multiplies  an   input   value  by 

.01,   moving   the  decimal  point  two  places  to  the  left.   A  -2P 

scale  factor  multiplies  an  input  value  by  100,  moving  the 
decimal  point  two  places  to  the  right. 
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Input  Examples: 

Format 

3PE10.5 

3PE10.5 

-3PE10.5 


External  Field 

AAA37 .614a 
AA37.614E2 
AAAA37.614 


Internal  Value 

.037614 
3761.4 
37614.0 


Additonal  Rules  in  Effect  for  Output 

•   Scale  factcs  apply  only  to  data  output. 
I/O  list  variables  do  not  change. 


The   values   of   the 


•  For  the  F  field  descriptor,  the  value  of  the  I/O  list  element 
is  multiplied  by  10**n  before  transfer  to  the  external  record. 
Thus,  a  positive  scale  factor  moves  the  decimal  point  to  the 
right;  a  negative  scale  factor  moves  the  decimal  point  to  the 
left. 

•  For  the  E  or  D  field  descriptor,  the  basic  real  constant  part 
of  the  value  (see  Section  2.3.2)  is  multiplied  by  10**n,  and  n 
is  subtracted  from  the  exponent.  Thus,  a  positive  scale 
factor  moves  the  decimal  point  to  the  right  and  decreases  the 
exponent;  a  negative  scale  factor  moves  the  decimal  point  to 
the  left  and  increases  the  exponent. 

•  A  scale  factor  has  no  effect  on  a  G  field  descriptor  if  the 
magnitude  of  the  data  to  be  output  is  within  the  effective 
range  of  the  descriptor,  because  the  G  field  descriptor 
supplies  its  own  scaling  function.  Moreover,  the  G  field 
descriptor  functions  as  an  E  field  descriptor  if  the  magnitude 
of  the  data  value  is  outside  its  range.  In  this  case,  the 
scale  factor  has  the  same  effect  as  for  the  E  field 
descr  iptor . 


Output  Exanples: 

Format 

1PE12.3 

1PE12.2 

-1PE12.2 


Internal  Value   External  Representation 


-270.139 
-270.139 
-270.139 


AA-2.701E+02 
AAA-2.70E+02 
AAA-0.03E+04 


8.1.17   Repeat  Counts  and  Group  Repeat  Counts 

You  can  apply  most  field  descriptors  (except  H,  T,  P,  or  X)  to  a 
number  of  successive  data  fields  by  preceding  that  field  descriptor 
with  an  unsigned  nonzero  integer  constant  specifying  the  number  of 
repe-ti t ions.  This  constant  is  called  a  repeat  count.  For  example, 
the  following  two  statements  are  equivalent: 


2C 


FORMAT    (E12. 4, E12. 4, £12.4,15,15, 15, 15) 


20         FORMAT    (3E12.4,4I5) 
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Similarly,  you  can  apply  a  group  of  field  descriptors  repeatedly  to 
data  fields  by  enclosing  these  field  descriptors  in  parentheses  and 
preceding  them  with  an  unsigned  nonzero  integer  constant.  The  integer 
constant  is  called  a  group  repeat  count.  For  example,  the  following 
two  statements  are  equivalent: 


50 


FORMAT  (218  ,3(F8.3,E15.7) ) 


50    FORMAT  ( IB  ,  IB  ,F8 . 3  ,E1 5  .  7  ,F8 . 3  ,E1 5 . 7 ,F8 . 3 ,E1 5 . 7 ) 

12  3 

An  H  or  X  field  descriptor,  which  could  not  otherwise  be  repeated,  can 
be  enclosed  in  parentheses  and  treated  as  a  group  repeat 
specification.   Thus,  it  could  be  repeated  a  desired  number  of  times. 

If  you  do  not  specify  a  group  repeat  count,  a  default  count  of  1  is 
assumed. 


8.1.18   Default  Field  Descriptors 

If  you  write  the  field  descriptors  I,  0,  L,  F,  E,  D,  G,  or   A  without 

specifying   a   w  or  w.d,  default  values  are  supplied  based  on  the  data 

type  of  the  I/O  list  element.   Note  that  for  F,  E,  D,  and  G,  you   may 
not  specify  only  w  or  d;   you  must  specify  w.d  or  nothing. 

Table  8-2  lists  the  default  values  for  w  and  d. 


Table  8-2 
Default  Field  Widths 


Field 

Descr  iptor 

List    Element 
Data   Type 

w 

d 

I,    0 

INTEGER*2 

7 

I,    0 

INTEGER*4 

12 

L 

LOGICAL 

2 

F,    E, 

G,    D 

REAL,    COMPLEX 

15 

7 

F,     E, 

G  ,    D 

DOUBLE    PRECISION 

25 

16 

A 

L0GICAL*1    or    BYTE 

1 

A 

LOGICAL*2,INTEGER*2 
LOGICAL*4,INTEGER*4 

2 
4 

A 

REAL,    COMPLEX 

4 

A 

DOUBLE    PRECISION 

8 

Notice  that  foi  the  A 
the  corresponding  I/O 


field  c'esci  '  i  tcr , 
list  element. 


the  default  is  the   length   of 


8.2   VARIABLE  FORMAT  EXPRESSIONS 


You  can  use  dn  expression 
an  integer  (except  as  the 
the  H  field)  by  enclosing 

FORMAT  (I<J+1>) 


in  a  FORMAT  statement  wherever  you  can  use 
specification  of  the  nurr  ^r  of  cha»'acters  in 
it  in  angle  brackets.     l    example: 
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This  statement  performs  an  I  (integer)  data  transfer  with  a  field 
width  one  greater  than  the  value  of  J  at  the  time  the  format  is 
scanned.  The  expression  is  re-evaluated  each  time  it  is  encountered 
in  the  normal  format  scan.  If  the  expression  is  not  of  integer  data 
type,  it  is  converted  to  integer  data  type  before  use.  You  can  use 
any  valid  FORTRAN  expression,  including  function  calls  and  references 
to  dummy  arguments. 


Figufe  8-1  shows  an  example  of  a  variable  format  expression. 

The  value  of  a  variable  format  expression  must  obey   the   restrictions 
on  magnitude  applying  to  its  use  in  the  format,  or  an  error  occurs. 


DIMENSION  A(5) 

DATA  A/l.,2.,i.,4.,5./ 


100 

10 

C 


101 
20 


DO  10  I  =  1,10 
WRITE  (6,100)  I 
F0RMAT(I<MAX(I,5)>) 
CONTINUE 


DO  2  0  I  =  1,5 

WRITE  (6,101)  (A(I),J  =  1,I) 

FORMAT  (<I>F10.<I-1>) 

CONTINUE 

END 


On  execution,  these  statements  produce  the  following  output; 


1 
2 
3 
4 
5 
6 
7 
8 
9 

10 

1. 

2.0 

3.00 

4.000 

5.0000 


2.0 

3.00 

4.000 

5.0000 


3.00 

4.000 

5.0000 


4.000 
5.0000 


5.0 


Figure  8-1   Variable  Format  Expression   Example 


8.3   CARRIAGE  CONTROL  CHARACTERS 

The  first  character  of  every  record  transferred  to  a  printer  is  not 
printed.  Instead,  it  is  interpreted  as  a  carriage  control  character. 
The  FORTRAN  I/O  system  recognizes  certain  characters  as  carriage 
control  characters.  Table  8-3  lists  these  characters  and  their 
effects. 
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Table  8-3 
Carriage  Control  Characters 


Character 

Effect 

A   (space) 

0  (zero) 

1  (one) 

-»■   (plus) 

$   (dollar  sign) 

Advances  one  line 

Advances  two  lines 

Advances  to  top  of 
next  page 

Does  not  advance 
(allows  overprinting) 

Advances  one  line  before  printing 
and  suppresses  carriage 
return  at  the  end  of  the 
record 

m 


Any  character  other  than  those  listed  in  Table  8-3  is  treated  as  a 
space  and  is  deleted  from  the  print  line.  Note  that  if  you 
accidentally  omit  the  carriage  control  character,  the  first  character 
of  the  record  is  not  printed. 


8.4   FORMAT  SPECIFICATION  SEPARATORS 

Field  descriptors  in  a  format  specification  are  generally  separated  by 
commas.  You  can  also  use  the  slash  (/)  record  terminator  to  separate 
field  descriptors.  A  slash  terminates  input  or  output  of  the  current 
record  and  initiates  a  new  record.   For  example: 


40 


WRITE  (6,40)  K,L,M,N,0,P 
FORMAT  ( 306/16, 2F8. 4) 


This  statement  is  equivalent  to: 

WRITE  (6,40)  K,L,M 
40    FORMAT  (306) 

WRITE  (6,50)  N,0,P 
50    FORMAT  (I6,2F8.4) 

You  can  use  multiple  slashes  to  bypass  input  records  or  to  output 
blank  records.  If  n  consecutive  slashes  appear  between  two  field 
descriptors,  (n-1)  records  are  skipped  on  input  or  (n-1)  blank  records 
are  output.  The  first  slash  terminates  the  current  record;  the 
second  slash  terminates  the  first  skipped  or  blank  record,  and  so  on. 

n 


ri  slashes  at  the  beginning  or  end  of  a  format  specification 
in  n  skipped  or  blank  records  because  the  opening  and  closing 
ses  of   the   format  specification  are   themselves  a   record 


However, 

result 

parenthese 

initiator  and  terminator,  respectively.   For  example: 


WRITE  (6,99) 
99    FORMAT  ( ' 1 ' ,T51 , 'HEADINGALINE ' //T51 , 'SUBHEADINGALINE ' //) 
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The  above  statements  produce  the  following  output; 
Column  50,  top  of  page 

HEADING  LINE 
(blank  line) 

SUBHEADING  LINE 
(blank  line) 
(blank  line) 


8.5   EXTERNAL  FIELD  SEPARATORS 


A  field 
to  rea 
the  ext 
stateme 
externa 
or  spac 
to  pad 
comma 
This  is 
when  y 
with  th 


descriptor  s 
d  w  characte 
ernal  record 
nt  would  re 
1  record,  unl 
es.  When  the 
the  input  fie 
overrides   th 

called  short 
ou  are  enter 
e  I,  0,  F,  E, 


uch  as  Fw.d  specifies  that  an  input  statement  is 
rs  from  the  external  record.  If  the  data  field  in 
contains  less  than  w  characters,  the  input 
ad  characters  from  the  next  data  field  in  the 
ess  you  padded  the  short  field  with  leading  zeroes 

field  descriptor  is  numeric,  you  can  avoid  having 
Id  by  using  a  comma  to  terminate  the  field.  The 
e   field   descriptor's   field  width  specification. 

field  termination,  and  is  particularly  useful 
ing  data  from  a  terminal  keyboard.   You  can  use  it 

D,  G,  and  L  field  descriptors.   For  example: 


READ  (5,100)  I,J,A,B 
100    FORMAT  (2I6,2F10.2) 

The  above  statements  read  the  following  record: 

1,-2,1.0,35 
On  execution,  the  following  assignments  occur: 

1  =  1 

J  =  -2 

A  =  1.0 

B  =  0.35 

The  physical  end  of  the  record  also  serves  as  a  field  terminator. 

Note  that  the  d  part  of  a  w.d  specification   is   not   affected   by   an 
external   field   separator.    Therefore,   you  should  always  include  an 


explicit  decimal  point 
descriptions. 


in  the  external  field  for  F,  E,  D  and 


field 


You  can  use  a  comma  to  terminate  only  fields  less  than  w  characters 
long.  If  a  comma  follows  a  field  of  w  characters  or  more,  the  comma 
is  considered  part  of  the  next  field. 

Two  successive  commas,  or  a  comma  after  a  field  of  exactly  w 
characters,  constitutes  a  null  (zero-length)  field.  Depending  on  the 
field  descriptor  specified,  the  resulting  value  assigned  is  0,  0.0, 
O.DO,  or  .FALSE.. 
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You  cannot  use  a  comma  to  terminate  a  field  that  is  controlled  by  an 
A,  H,  or  alphanumeric  literal  field  descriptor.  However,  if  the 
record  reaches  its  physical  end  before  w  characters  are  read,  short 
field  termination  occurs;  and  the  characters  that  were  input  are 
assigned  successfully.  Trailing  spaces  are  appended  to  fill  the 
corresponding  I/O  list  element  or  the  field  descriptor. 


8.6   RUN-TINE  FORMATS 


A  run-time  format  is  a  format  stored  as  Hollerith  or  alphanumeric  data 
in  an  array.  In  the  I/O  statement  referencing  the  format,  you  write 
the  name  of  the  array  instead  of  a  format  statement  label  (see  Section 
7.2.2).   Virtual  arrays  must  not  be  used  for  this  purpose. 

A  run-time  format  in  an  array  has  the  same  form  as  a  FORMAT  statement, 
without  the  word  FORMAT  and  the  statement  label.  The  opening  and 
closing  parentheses  are  required.  Variable  format  expressions  are  not 
permitted. 

Run-time  formats  are  especially  useful  when  you  do  not  know  exactly 
which  field  descriptors  will  be  required  until  execution  time.  To 
solve  this  problem,  you  can  write  a  program  to  create  a  format,  the 
choice  of  field  descriptors  being  made  to  depend  on  the  attributes  of 
the  data.   For  example: 


18 
20 


TABLE(10,5) 

FMT(ll) ,FBIG,FMED,FSML 

FMT(l)/' ( '/,FMT(11)/') •/ 


REAL 

REAL 

DATA 

DATA  FBIG,FMED,FSML/'F8.2' , ' F9 .4 ' , ' F9 .6 ' / 

DATA  FMT(3) ,FMT(5) ,FMT(7) ,FMT(9)/4*' , '/ 

DO  2  0  1=1,10 

DO  18  J=l,5 

FMT(2*J) =FMED 

IF  (TABLE(1,J) .GE.IOO) 

IF  (TABLE(I,J) .LE.0.1) 

CONTINUE 

WRITE(6,FMT)  (TABLE (I, J)  ,J  = 

CONTINUE 

END 


FMT(2*J) =FBIG 
FMT(2*J)=FSMAL 


a, 5) 


In  the  example,  the  data 
magnitudes   of   the   dat 
known  until  just  before 
the   real  array  FMT .   A 
parenthesis  is  stored  in 
odd-numbered   elements 
stored  in  the  real  varia 
descriptors  to  be  assign 
depend  on  the  magnitudes 
statement  references  FMT 


is  stored 
a   stored 
output.   T 
left  paren 

FMT(ll) , 
of   FMT. 
bles  FBIG, 
ed  to  even 

of  the  da 

instead  o 


in   the   real   array   TABLE.    The 

in  the  elements  of  TABLE  will  not  be 

he  format  specification  is  stored  in 

thesis  is  stored  in  FMT  (1),  a  right 

and   commas   are   stored   in   other 

A  selection  of  field  descriptors  is 

FMED,  FSML.   The   choice   of   field 

-numbered  elements  of  FMT  is  made  to 

ta  in  TABLE.    Finally,   the   output 

f  a  format  statement  label. 


Each  time  an  I/O  statement  referencing  a  run-time  format  is  executed, 
the  format  is  compiled  (or  recompiled)  and  assigned  a  storage 
location.  Data  read  into  that  location  through  use  of  the  H  field 
descriptor  is  not  stored  in  the  array  holding  the  format.  At  the  end 
o£  the  I/O  statement,  the  data  will  be  lost. 
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8.7   FORMAT  CONTROL  INTERACTION  WITH  INPUT/OUTPUT  LISTS 

Format  control  begins  with  execution  of  a  formatted  I/O  statement. 
During  format  control,  the  action  taken  depends  on  information 
provided  jointly  by  the  next  element  of  the  I/O  list  (if  one  exists) 
and  the  next  field  descriptor  of  r-be  format  specification.  The  I/O 
list  and  the  format  specification  are  correlated  from  left  to  right, 
except  when  repeat  counts  are  specified. 


If  the  I/O  statement  contains  an  I/O  list,  you  must  specify  at  least 
one  I,  0,  F,  E,  D,  G,  I .  A,  or  Q  field  descriptor  in  the  format,  or 
else  an  error  occurs. 


formatted  input  statement  reads  one  record  from  the 
and  initiates  format  control.  Thereafter,  additional 
records  can  be  read  as  indicated  by  the  format  specification.  Format 
requires  that  a  new  record  be  input  when  a  slash  occurs  in  the 
format  specification,  or  when  the  last  closin^ 
format  specification  is  reached 
filled.  Any  remaining  characters 
when  the  new  record  is  read. 


On  execution,  a 
specified   unit 
records 
control 


in 
parenthesis   of   the 
and  I/O  list  elements  remain  to  be 
in  the  current  record  are   discarded 


On  execution,  a  formatted  output  statement  transmits  a  record  to  the 
specified  unit  as  format  control  terminates.  Records  can  also  be 
written  during  format  control  if  a  slash  appears  in  the  format 
specification  or  if  the  last  closing  parenthesis  is  reached  and 
I/O  list  elements  remain  to  be  transferred. 


more 


The  I,  0,  F,  E,  D,  G,  L,  A,  and  Q  field  descriptors  each  correspond  to 
one  element  in  the  I/O  list.  No  list  element  crresponds  to  an  H,  X, 
P,  T,  or  alphanumeric  literal  field  descriptor.  In  H  and  alphanumeric 
literal  field  descriptors,  data  transfer  occurs  directly  between  the 
external  record  and  the  storage  location  of  the  format  specification. 

In  format  control,  when  an  I,  0,  F,  E,  D,  G,  L,  A,  or  Q  field 
descriptor  is  encountered,  the  I/O  list  is  checked  for  a  corresponding 
element.  If  one  is  found,  data  is  transferred  and,,  if  appropriate, 
translated  between  the  external  record  and  the  list  element.  If  one 
is  not  found,  format  :ontrol  terminates. 

When  the  last  closing  parenthesis  of  the  format  specification  is 
reached,  format  control  determines  whether  mors  I/O  list  elements  are 
to  be  processed.  If  not,  format  control  terminates.  However,  if 
additional  list  elements  remain,  part  or  all  of  the  format 
specification  is  reused  in  a  process  called  format  reversion. 

Format  reversion  is  the  termination  of  the  current  record  and  the 
starting  of  a  new  one.  Format  control  reverts  to  the  group  repeat 
specification  whose  left  parenthesis  is  complemented  by  the 
next-to-last  right  parenthesis  of  the  format  specification.  If  the 
format  does  not  contain  a  group  repeat  specification,  format  control 
returns  to  the  beginning  of  the  format  specification  and  continues 
from  that  point. 


Examples  of  format  reversion  ar<!: 

READ  (1,100)  A,  B,  C,  D,  E,  F 
100   FORMAT  (F8.3,  F8.3) 


In  this  example,  three  records  containing  two  fields  are  read.  The 
first  record  assigns  values  to  A  and  B;  the  second  to  C  and  D;  and 
the  third  to  E  and  F. 
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DIMENSION  A(5,5) ,B(5) 

WRITE  (6,10)X,  (I,B(I)  ,  (A(I,J;  ,J  =  1,5)  ,1  =  1,5) 

10    FORMAT  (E10.3/(I5,E10.3,  5(F8.5))) 

In  this  example,  format  reversion  returns  to  the  group  repeat 
specification  that  begins  with  15. 

8.8   SUMMARY  OP  RULES  FOR  FORMAT  STATEMENTS 

The  following  sections  summarize  the  rules  for  constructing  and  using 
the  format  specifications  and  their  components,  and  for  constructing 
external  fields  and  records.   Table  8-4  summarizes  the  FORMAT  codes. 


8.8.1  General  Rules 


6. 


7. 


8. 


A  FORMAT  statement  must  always  be  labeled. 

In  a  field  descriptor  such  as  rlw  or  nX ,  the  terms  r,  w,  and 
n  must  be  unsigned  integer  constants  greater  than  0.  (They 
cannot  be  names  assigned  to  constants  in  PARAMETER 
statements.)  You  can  omit  the  repeat  count  and  field  width 
speci  f ication. 

In  a  field  descriptor  such  as  Fw.d,  the  term  d  must  be  an 
unsigned  integer  constant.  If  w  is  specified,  then  you  must 
specify  d  in  F,  E,  D,  and  G  field  descriptors  even  if  it  is 
0;  and  the  field  width  specification  (w)  must  be  greater 
than  or  equal  to  d.  The  decimal  point  is  also  required.  You 
must  either  specify  both  w  and  d,  or  omit  them  both. 

In  a  field  descriptor  such  as  nHclc2  ...  en,  exactly  n 
characters  must  follow  the  H  format  code.  You  can  use  any 
printing  ASCII  character  in  this  field  descriptor. 


be   a   signed   or 

-127  through  127 

E,  D,  and  G  field 

scale   factor,  it 


In  a  scale  factor  of  the    form  nP ,   n   must 

unsigned   integer   constant   in   the   range 

inclusive.   The  scale  .factor  affects  the  F, 

descriptors   only.    Once  you   specify   a 

applies  to  all  subsequent  F,  E,  D,  and  G  field  descriptors  in 

that  format  specification  until  another  scale  factor  appears. 

You  must  explicitly  specify  OP  to  reinstate  a  scale  factor  of 

zero.   Format  reversion  does  not  affect  the  scale  factor. 


No  repeat  count  is  permitted  for  H,  X,  T, 
literal  field  descriptors  unless  these 
enclosed  in  parentheses  and  treated  as 
speci  f ication. 


or  alphanumeric 
descriptors  are 
a   group   repeat 


If  the  associated  I/O  statement  contains  an  I/O  list,  the 
format  specification  must  contain  at  least  one  field 
descriptor  other  than  H,  X,  P,  T,  or  an  alphanumeric  literal. 

A  format  specification  in  an  array  must  be  constructed  the 
same  as  a  format  specification  in  a  FORMAT  statement, 
including  the  openi  j  and  closing  parentheses.  The  word 
FORMAT  and  the  statement  label  only  are  omitted. 
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8.8.2   Input  Rules 

1.  A  minus  sign  must  precede  a  negative  value  in  an  external 
input  field;  a  plus  sign  is  optional  before  a  positive 
value. 


2.  On  input,  an  external  field  under  I  field  descriptor  control 
must  be  an  integer  constant.  It  cannot  contain  a  decimal 
point  or  an  exponent.  An  external  field  under  0  field 
descriptor  control  must  contain  only  the  numerals  0  through  7 
and  must  not  contain  a  sign,  a  decimal  point,  or  an  exponent. 

3.  On  input,  an  external  field  under  F,  E,  D,  or  G  field 
descriptor  control  must  be  an  integer  constant  or  a  real  or 
double  precision  constant.  It  can  contain  a  decimal  point 
and/or  an  E  or  D  exponent  field. 


If  an  external  field  contains  a  decimal  point,  the  actual 
size  of  the  fractional  part  of  the  field,  as  indicated  by 
that  decimal  point,  overrides  the  d  specification  of  the 
corresponding  real  or  double  precision  field  descriptor. 

If  an  external  field  contains  an  exponent,  the  scale  factor 
(if  any)  of  the  corresponding  field  descriptor  has  no  effect 
on  the  conversion  of  that  field. 


The  field  width  specification  must  be  large  enough  to 
accommodate  both  the  numeric  character  string  of  the  external 
field  and  any  other  characters  that  are  allowed  (algebraic 
sign,  decimal  point,  and/or  exponent). 

A  comma  is  the  only  character  you  can  use  as  an  external 
field  separator.  It  terminates  input  of  numeric  fields  that 
are  shorter  than  the  number  of  characters  expected.  It  also 
designates  null  (zero-length)  fields. 


8.8.3   Output  Rules 


A  format  specification  cannot  specify  more  output  characters 
than  the  external  record  can  contain.  For  example,  a  line 
printer  record  cannot  contain  more  than  133  characters, 
including  the  carriage  control  character. 

The  field  width  specification  (w)  must  be  large  enough  to 
accommodate  all  characters  that  the  data  transfer  can 
generate,  including  an  algebraic  sign,  decimal  point,  and 
exponent.  For  example,  the  field  width  specification  in  an  E 
field  descriptor  should  be  large  enough  to  contain  d+7 
characters. 


The  first  character  of  a  record  output  to  a  line 
terminal  is  used  for  carriage  control;  it  is 
The  first  character  of  such  a  rec, rd  should  be  a 
$,  or  +.  Any  other  chaiacter  is  treated  as  a 
deleted  from  the  record. 


printer  or 
not  printed, 
space,  0 ,  1 , 
space  and  is 
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Code 


0 
F 


Form 


Iw 

Ow 
Fw.d 

Ew.d 

Dw.d 

Gw.d 


Lw 


Aw 


nHc. . . c 


nX 


Tn 


Table  8-4 
Summary  of  FORMAT  Codes 


Effect 


Specifies   transfer   of    decimal    integer 
values. 

Specifies  transfer  of  octal  integer  values. 


Specifies   transfer   of   real    or 
precision  values  in  basic  real  form. 

Specifies   transfer   of   real    or 
precision  values  in  exponential  form. 


double 


double 


Specifies   transfer   of  real    or   double 

precision   values    in  double   precision 

exponential  form  with  a  D  instead  of  an  E. 

Specifies   transfer   of  real    or 


precision   values; 


on   input. 


code;   on  output,  acts  like 
code, 


double 
acts  like  F 
code   or   F 


Specifies  transfer  of  logical  data:  on 
input,  transfers  T,  t,  F,  or  f;  on  output, 
transfers  T  or  F. 

Specifies  transfer  of  alphanumeric  or 
Hollerith  values. 

Specifies  transfer  of  alphanumeric  or 
Hollerith  values  between  an  external  record 
and  the  format  storage  location. 

Specifies  that  n  characters  are  to  be 
skipped  (on  input)  or  that  n  spaces  are  to 
be  transmitted  (on  output). 

Specifies  the   position,   in   the   external 

record , 

processed, 


of 


the   next   character   to   be 


Specifies    the 


number 


of 


characters 


remaining   to  be   transferred   in  an  input 
record. 


Suppresses 


interactive  I/O 


carriage 


return 


during 


Terminates  format  control  if  the   I/O   list 
is  exhausted. 
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The   auxiliary   input/output   statements   perform    file    management 
functions.   These  statements  are: 

•  OPEN  --  establishes  a  connection  between  a  logical  unit  and  a 
file  or  device,  and  specifies  the  attributes  required  for  read 
and  write  operations. 

•  CLOSE  —  terminates  the  connection  between  a  logical  unit  and 
a  file  or  device. 

•  REWIND,  BACKSPACE,  and  FIND  —  perform  file-positioning 
functions. 

•  DELETE  —  deletes  records  in  a  relative  or  indexed  file.   ; 

•  UNLOCK  —  frees  locked  records  for  other  users  in  a 
shared-file  environment.   .■■  :-^:-: :■..,: 'uiK'.:^-?^. 

•  ENDFILE  —  writes  a  special  record  that  causes  an  end-of-file 
condition  (and  END=  transfer)  when  an  input  statement  reads 
the  record. 

•  DEFINE  FILE  —  associates  a  FORTRAN  logical  unit  with  an 
unformatted,  direct  access  file. 

See  Section  7.2  for  a  definition  of  the  I/O   statement   components   of 
these  statements. 


OPEN 


9.1   OPEN  STATEMENT 

An  OPEN  statement  either  connects  an  existing  file  to  a  logical  unit, 
or  creates  a  new  file  and  connects  it  to  a  logical  unit.  In  addition, 
OPEN  can  specify  file  attributes  that  control  file  creation  and 
subsequent  processing. 

The  OPEN  statement  has  the  following  form: 

OPEN(par [,par] .. . ) 

par 

A  keyword  specification  in  one  of  the  following  forms: 

key 

key  =  value 
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key 


A  keyword,  as  described  below. 


value 

Depends  on  the  keyword,  as  described  below. 

Keywords  are  divided  into  several  categories  based  on  function: 
•  Keywords  that  identify  the  unit  and  file. 


UNIT 
NAME 
TYPE 
DISPOSE 


-  logical  unit  number  to  be  used 

-  file  name  specification  for  the  file 

-  file  existence  status  at  OPEN 

-  file  existence  status  after  CLOSE 


Keywords  that  describe  the  file  processing  to  be  performed. 


ACCESS 
I  ORGANIZATION 

READONLY 


-  FORTRAN  access  method  to  be  used 

-  logical  file  structure 

-  write  protection 


Keywords  that  describe  the  records  in  the  file. 


BLOCKSIZE 

CARRIAGECONTROL 

FORM 

RECORDSIZE 

RECORDTYPE 


-  size  of  I/O  transfer  buffer 

-  type  of  printer  control 

-  type  of  FORTRAN  record  formatting 

-  logical  record  length 

-  logical  record  structure 


Keywords  that  describe  file  storage  allocation  when  a  file 
created. 


is 


INITIALSIZE 
EXTENDSIZE 


-  initial  file  storage  allocation 

-  file  storage  allocation  increment  size 


Keywords  that  provide  additional   capability   for   direct   and 
keyed  access  I/O. 


|:i"£i£>«tft\->M'j\*^s^^^r:,^ii\>?»^i^*v'..iL'-.^ 


'^mWT" —  -^  ™  ^  i^^y  f jgjj  definition 

ASSOCIATEVARIABLE  -  variable  holding  the   next   direct   access 


MAXREC 


record  number 
-  maximum  direct  access  record  number 


Optional  keywords  that  provide  improved  performance  or  special 
capabilities. 


ERR 

BUFFERCOUNT 
NOSPANBLOCKS 

SHARED 

USEROPEN 


-  statement  to  which  control  is  transferred 
if  an  error  occurs  during  execution  of  the 
OPEN  statement 

-  number  of  I/O  buffers  to  use 

-  records  are  not  to  be  split  across 
physical  blocks 

-  other  programs  can  simultaneously  access 
the  file 

-  option  to  provide  a  user-written  external 
function  that  controls  the  opening  of  the 
■file  „,. ..._..... _„  ^ 


• 
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NOTE 


Not  all  PDP-11  operating  systems  support 
all  keywords  and  options.  Consult  the 
appropriate  PDP-11  FORTRAN  user's  guide 
for  information  on  system-specific 
restrictions. 


# 


Table  9-1  lists  in  alphabetical  order  the  keywords  and  their   possible 
associated  values,  including  default  values. 


Table  9-1 
OPEN  Statement  Keyword  Values 


Keyword 

Values* 

Function 

Default 

ACCESS 

'SEQUENTIAL' 
'DIRECT^ 
•APPEND^ 
•KEYED' 

Access  method 

'SEQUENTIAL' 

ASSOCIATEVARIABLE 

V 

Next  record 
number  in 
direct  access 

No  associate 
variable 

BLOCKSIZE 

e 

Size  of  I/O 
buffer 

System  default 

BUFFERCOUNT 

e 

Number  of  I/O 
buffers 

System  default 

CARRIAGECONTROL 

•  FORTRAN • 

'LIST' 

'NONE' 

Print  control 

•FORTRAN' 

(formatted) 

'NONE' 

(unf  orij^atted) 

DISPOSE 
DISP 

'SAVE'  or  'KEEP' 

•PRINT' 

'DELETE' 

File  disposi- 
tion 
at  close 

•SAVE^ 

ERR 

S 

Error  transfer 
label 

No  error 
transfer 

EXTENDSIZE 

e 

File  storage 

allocation 

increment 

Volume  or  sys- 
tem default 

FORM 

'FORMATTED' 
'UNFORMATTED' 

Format  type 

Depends  on 
ACCESS 

INITIALSIZE 

e 

File  storage 
allocation 

No  allocation 

KEY    .,-I,;.„,lii£;^ 

(kirk]...)  :  ^^ 

Indexed  file 
key  fields 

No  default 

(Continued  on  next  page) 
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■NOTES 


Table  9-1  (Cent.) 
OPEN  Statement  Keyword  Values 


Keyword 

Values^ 

Function 

Default 

MAXREC 

e 

Maximum  record 
number  in 
direct  access 

No  maximum 

NAME 

c 

File  name 
specification 

Depends  on 
unit  and  system 

NOSPANBLOCKS 

- 

Records  do  not 
span  blocks 

Records  can  span 
blocks 

ORGANIZATION 

•SEQUENTIAL' 
• RELATIVE  • 
'INDEXED' 

File  structure 

•SEQUENTIAL* 

READONLY 

- 

Write  protec- 
tion 

No  write 
protection 

RECORDSIZE 

e 

Record  length 

Depends  on  TYPE, 
ORGANIZATION, 
and  RECORDTYPE 

RECORDTYPE  -^^ 

■FIXED'  '^"^^-rJm. 
•VARIABLE' 
•SEGMENTED*  ;^^^;^ 

Record     '*^ 
structure 

Depends  on 
ACCESS  and 
FORM  -    , 

SHARED 

- 

File  sharing 
allowed 

File  sharing 
not  allowed 

TYPE 

■OLD' 
'NEW^ 
•SCRATCH' 
■UNKNOWN' 

File  status 
at  open 

'NEW' 

UNIT 

e 

Logical  unit 
number 

No  default 

USEROPEN 

'*^'*^'''-?!^''&::'^l!^'^i^''ir:''"  ' 

User  program 
option 

No  option 

c  is  an  alphanumeric  literal, 

array  element  name, 

e  is  an  integer  expression, 

k  is  a  key  specification, 

p  is  an  external  function, 

s  is  a  statement  label. 

V  is  an  integer  variable  name 


array  name,   variable   name,   or 


• 


# 


Keyword  specifications  can  appear  in  any  order.  Determining  whether 
they  are  optional  and  which  ones  are  required  depends  upon  the  type  of 
file  you  are  establishing  or  have  established,  and  upon  what  you  plan 
to  do  with  it. 
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Some  examples  follow. 

OPEN  (UNIT=1,  ERR=100) 

This  example  creates  a  new  sequential  formatted  file  on   unit   1   with 
the  default  file  name. 

OPEN  (UNIT=3,  TYPE= ' SCRATCH ' ,  ACCESS= ' DIRECT ' , 
INITIALSIZE=50,  RECORDSI ZE=64 ) 

This  example  creates  a  50-block  sequential  file  to  be  used  with  direct 
access.   The  file  is  deleted  at  program  termination. 

OPEN  (UNIT=I,  NAME='MTO:MYDATA.DAT' ,  BLOCKSI ZE=819 2 , 

TYPE='NEW',  ERR=14,  RECORDSI ZE=1024 ,  RECORDTYPE= ' FIXED ' ) 

This  example  creates  a  file  on  magnetic  tape  with  a  large   block   size 
for  efficient  processing. 

OPEN  (UNIT=I,  NAME='MTO:MYDATA.DAT' ,  READONLY,  TYPE='OLD', 
RECORDSIZE=1024,  RECORDTYPE= ' FIXED ' ,  BLOCKSI ZE=819 2) 

This  example  opens  the  file  created  in  the  previous  example  for  input. 

Example: 

0PEN(UNIT=1,TYPE«'NEW',  ORGAN I ZATION* ' INDEXED ' , 
RECORDSI ZE=60,FORM=' UNFORMATTED' , 
KEY"  (1:20,  30 : 33 tINTEGER,  46:57),  ACCESS- ' KEYED' ) 

This  statement  creates  a  new  indexed  file  specifying  three  keys:   The 
i primary   key  will  be  from  byte  1  to  20;   the  first  alternate  key  will 
be  an  integer  key  from  byte  30  to  33;   ard  the  second  alternate  key 
will  be  from  byte  46  to  57. 

Sections  9.1.1  through  9.1.22  describe  the  keywords  in  detail. 

;  In  FORTRAN  IV  PLUS,  e  can  be  any  integer,  real,  or  double  precision 
(  expression.  The  value  of  the  expression  is  converted  to  integer  data 
Lt^yp*  >«C9C«  ^^   is  U9«d. 


'"5:TT-.  *■--  rrV" 


t-v,»K-*rK  -WT,-,^;  TriQT '^f^.*'  -  "^ffH^V^T^'^ 


9.1.1   ACCESS  Keyword 

The  ACCESS  keyword  specifies  the  method  of  locating,  reading,  or 
writing  records.  In  FORTRAN  IV  there  are  two  access  methods: 
sequential  and  direct. 

In  FORTRAN  IV-PLUS  there  are  three  access  methods:  sequential,  direct 
and  keyed. 

This  keyword  has  the  following  form: 

ACCESS=  ace 

ace 

One  of  the  alphanumeric  literals,  'SEQUENTIAL',  'DIRECT',  'KEYED' 

or   'APPEND'.    ACCESS=   'APPEND'  implies   sequential  access  and 

positioning  after  the  last  record  in  the  file. 

If  no  ACCESS  is  specified,  the  default  is  'SEQUENTIAL'. 
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Table  9-2  shows  the  valid  combinations  of   ACCESS   keywords   and   file 
organizations: 


Table  9-2 
Allowed  Values  of  ACCESS  Keywords 


File  Organization 

ACCESS  Keyword 

SEQUENTIAL 

DIRECT 

KEYED 

APPEND 

Sequential 

Relative 

Indexed 

Yes 
Yes 
Yes 

Yesi 

Yes 

No 

No 
No 
Yes 

Yes 

No 

No 

^  Direct  access  to  sequential  file  requires  that  the   records   in   the 
file  be  fixed-length  (see  Section  9.1.18). 

In  sequential  access,  you  must  read  or  write  records  in  sequence   from 
the  beginning  of  the  file. 

In  direct  access,  you  specify  record  number  n  (Section  7.2.3)   in   the 
I/O  statement,  and  the  system  selects  the  nth  record. 

In  keyed  access,  you  specify  a  key  value  (Section   7.2.4)   in   an   I/O 
statement,  and  the  system  selects  the  record  having  the  matching  key. 


9.1.2   ASSOCIATEVARIABLE  Keyword 

ASSOCIATEVARIABLE  specifies  the  integer  variable  (asv)  that,  after 
each  direct  access  I/O  operation,  contains  the  record  number  of  the 
next  sequential  record  in  the  file.  This  specifier  is  ignored  for 
sequential  access  or  keyed  access. 

This  keyword  has  the  following  form: 

ASSOCIATEVARIABLE  =  asv 


asv 


An  integer  variable. 


9.1.3   BLOCKSIZE  Keyword 

BLOCKSIZE  specifies  the  size  (in  bytes)  of  ti..  I/O  transter  buffer. 
I/O  statements  appear  to  transfer  records  directly  between  a  file  and 
the  entities  specified  in  the  I/O  list.  In  fact,  the  system  transfers 
the  records  to  an  intermediate  I/O  buffer. 

This  kfcyv/ord  has  the  following  form: 

BLOCKSIZE  =  bks 

bks 


An  integer  expression. 


9-6 


AUXILIARY  INPUT/OUTPUT  STATEMENTS 


FH 


For  sequential  files,  BLOCKSIZE  determines  the  number  of  disk  blocks 
to  transfer  for  disk  files  or  the  physical  blocking  factor  for  magtape 
files.   The  default  is  the  system  default  for  the  device. 

For  relative  and  Indexed  files,  BLOCKSIZE  determines  the  file's 
bucketsize.  A  bucket  is  a  number  of  disk  blocks'  used  as  the  unit  of 
I/O  transfer  and  as  the  unit  of  locking  and  control  information.  Each 
bucket  contains  control  information  as  well  as  data.      v  i.^^^^  ,  ^ 

See  the  appropriate  PDP-11  FORTRAN  user's  guide  for  more  information. 


9.1.4   BUFFERCOUNT  Keyword 

BUFFERCOUNT  specifies  the  number  ut  buffers  to  be  associated  v  th  the 
logical  unit  for  mult ibuf f ered  I/O.  The  BLOCKSIZE  keyword  de  ermines 
the  size  of  each  buffer.  If  you  do  not  specify  BUFFERCOUNT,  o  if  you 
specify  0,  the  system  default  is  used. 

This  keyword  has  the  following  form: 

BUFFERCOUNT  =  be 


be 


An  integer  expression. 


9.1.5   CARRIAJECONTROL  Keyword 

CARRIAGECONTROL  determines  the  kind  of  carriage  control  to  be  used 
when  printing  a  file.  The  default  for  formatted  files  is  'FORTRAN', 
the  default  for  unformatted  files,  the  default  is  'NONE'.  'FORTRAN' 
specifies  normal  FORTRAN  interpretation  of  the  first  character  (see 
Section  8.3);  'LIST'  specifies  no  FORTRAN  interpretation,  but  rather 
single  spacing  between  records;  and  'NONE'  specifies  no  implied 
carriage  control . 


This  keyword  has  the  following  form: 


CARRIAGECONTROL  =  cc 


cc 


One  of  the  alphanumeric  literals  'FORTRAN',  'LIST',  or  'NONE' 


9.1.6   DISPOSE  Keyword 

DISPOSE  determines  the  disposition  of  the  file  connected  to  the  unit 
when  the  unit  is  closed.  If  you  specify  'SAVE*  or  'KEEP',  the  file  is 
retained  after  the  unit  is  closed;  this  is  the  default  value.  If  you 
specify  'PRINT',  the  file  is  submitted  to  the  system  line  printer 
spooler.  On  some  systems,  the  file  is  deleted  after  printing.  If  you 
specify  'DELETE',  the  file  is  deleted.  A  read-only  file  (see  Section 
9.1.16)  cannot  be  printed  or  deleted,  and  a  scratch  file  (see  Section 
9.1.20)  cannot  be  saved  or  printed. 
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This  keyword  has  the  following  forms: 

DISPOSE  =  dis 
DISP  =  dis 


dis 


One  of  the  alphanumeric   literals   'SAVE', 
•delete* . 


'KEEP',   'PRINT',   or 


9  .1 .7   ERR  Keyword 

ERR  transfers  control  to  the  executable  statement  specified  by  s  if  an 
error  occurs  during  execution  of  the  OPEN  statement.  The  ERR 
specification  applies  only  to  the  OPEN  statement,  not  to  subsequent 
I/O  operations  on  the  unit.  If  an  error  does  occur,  no  file  is  opened 
or  created. 

This  keyword  has  the  following  form: 

ERR=  s 


The  label  of  an  executable  statement. 


9.1.8   EXTENDSIZE  Keyword 

EXTENDSIZE  specifies  the  number  of  blocks  by  which  to  extend  a  disk 
file  when  additional  file  storage  is  allocated.  If  you  do  not  specify 
EXTENDSIZE,  or  if  you  specify  0,  the  system  default  for  the  device  is 
used. 

This  keyword  has  the  following  form: 

EXTENDSIZE  =  es 


es 


An  integer  expression. 


9.1.9  FORfl  Keyword 

FORM  specifies  whether  the  file  being  opened  is  to  be  read  and  written 
using  formatted  or  unformatted  I/O  statements.  For  sequential  access, 
'FORMATTED'  is  the  default.  For  direct  or  keyed  access,  'UNFORMATTED' 
is  the  default.  You  must  not  mix  formatted  and  unformatted  I/O 
statements  on  the  same  unit. 

This  keyword  has  the  following  form: 

FORM  =  ft 


ft 


The    alphanumeric    literal     'FORMATTED'    or    'UNFORMATTED'. 
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9.1.10   INITIALSIZE  Keyword 

INITIALSIZE  specifies  the  nur-ber  of  blocks  in  the  initial  allocation 
of  space  for  a  new  file  on  a  disk.  If  you  do  not  specify  INITIALSIZE, 
or  if  you  specify  0,  no  initial  allocation  is  made. 

This  keyword  has  the  following  form: 

INITIALSIZE  =  insz 

insz 

An  integer  expression. 


9.1.11  KEY  Keyword  ^-:-,^.:,..~.,:..:.,^^~.^.i--...:.....-.-^^.........^^y 

KEY  designates  the  key  fields  for  indexed  files.  The  KEY  parameter (s) 
must  be  included  in  the  OPEN  statement  when  an  indexed  file  is 
created.  When  an  existing  indexed  file  is  opened,  the  previously 
stored  key  parameter (s)  are  used.  If  key  parameters  are  specified  for 
an  existing  file,  they  must  match  the  parameters  of  the  existing  file 
or  an  error  occurs. 

This  keyword  has  the  following  form: 

KEY  =  (kspec  [,kspec]...) 
where  each  kspec  has  the  form: 

el  :  e2  [:dtn] 

tl^     specifies  the  first  byte  position  of  the  key 
specifies  the  last  byte  position  of  the  key 
dtn     specifies  the  data  type  of  the  key 

el,e2   are  integer  expressions 

dtn     is  one  of  the  following  data  type  names: 

INTEGER    -   Integer  key 
CHARACTER  -   Character  key 

If  dtn  is  omitted,  the  key  data  type  is  character. 

The  key  thus  defined  starts  at  position  el  in  the  record  and  has  a 
length  of  e2-el+l.  The  values  of  el  and  e2  must  be  such  that: 

1   ,LE.   (el)  .LE.   (e2)  .LE.   record-length 

■  /   1   .LE.   (e2-el+l)  .LE.   255 

If  the  key  type  is  INTEGER,  the  key  length  must  be  2  or  4.  There  must 
be  1  key  specification  in  the  list  and  there  may  be  up  to  255  key 
specif ications„  Each  key  specification  defines  a  key  field.  The 
first  key  specification,  kspec  0,  defines  the  primary  key.  The  second 
key  specification,  kspec  1,  defines  the  first  alternate  key;   etc. 

The  order  of  the  key  specifications  in  the  list  specifies  the 
key-of-reference  number,  that  is,  the  key  number  used  in  subsequent 
I/O  statements.  Each  key  in  the  file  must  be  specified  in  the  key 
specification  list. 
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Up  to  254  alternate  keys  may  be  specified.   At  least  the   primary   key 
must  be  specified. 


9.1.12   NAXREC  Keyword 

MAXREC  specifies  the  maximum  number  of  records  permitted  in  a  direct 
access  file.  The  default  is  no  maximum  number  of  records.  This 
specifier  is  ignored  for  other  types  of  files. 

This  keyword  has  the  following  form: 

MAXREC  =  mr 


nr 


An  integer  expression, 


9.1.13  NAME  Keyword 

NAME  specifies  the  name  of  the  file  to  be  connected  to  the  unit.  The 
name  can  be  any  file  specification  accepted  by  the  operating  system. 
The  appropriate  PDP-11  FORTRAN  user's  guide  describes  default  file 
name  conventions. 

If  the  file  name  is  stored  in  a  variable,  array,  or  array  element,  the 
name  must  consist  of  ASCII  characters  terminated  by  an  ASCII  null 
character  (0  byte). 

This  keyword  has  the  following  form: 

NAME  =  fin 


fin 


An  array  name,  variable  name,  array  element  name,  or  alphanumeric 
literal. 


9.1.14   NOSPANBLOCKS  Keyword 

NOSPANBLOCKS  is  used  for  sequential  files  stored  on  disk  only.  It 
specifies  that  records  are  not  to  cross  disk  block  boundaries.  i  *"  any 
record  exceeds  the  size  of  a  disk  block,  an  error  occurs. 

This  keyword  has  the  following  form: 

NOSPANBLOCKS 


9.1.15  ORGANIZATION  Keyword 

ORGANIZATION  specifies  the  internal  structure  of  the  file.  The 
default  organization  is  'SEQUENTIAL'.  The  organization  of  the  file 
must  always  be  specified  for  relative  and  indexed  files. 
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The  keyword  has  the  following  form: 
ORGANIZATION=  org 


org 


One  of  the  alphanumeric   literals   'SEQUENTIAL',   'RELATIVE',   or 

•INDEXED' . 


In  sequential  files,  records  are  stored  in  the  order  in  which  they 
were  written.  In  relative  files,  records  are  stored  in  fixed-length 
cells  identified  by  an  integer  number.  In  indexed  files,  records  are 
stored  in  a  system-defined  order,  and  indexes  or  directories  are 
maintained  to  locate  records  based  on  alphanumeric  strings  or  integer 
values,  called  keys,  contained  in  the  record. 

Table  9-3  shows  the  valid  combinations  of  ORGANIZATION  keywords  and 
access  modes: 


^Sir 


Table  9-3 
Valid  Access  Modes  for  ORGANIZATION  Keywords 


FILE    ORGAfJIZATION 

Access   iMode 

Sequential 

Direct 

Keyed 

Append 

SEQUENTIAL 

Yes 

Yes   1 

No 

Yes 

REL/VnVK 

Yes 

Yes 

No 

No 

INDEXED 

Yes 

No 

Yes 

No 

^  Direct  access  to  a  sequential  file  requires  that   the   records   in 
the  file  be  fixed-length  (see  Section  9.1.18). 

For  additional  information,  see  the  PDP-11   FORTRAN   IV-PLUS   User's 

Guide. 


9.1.16   READONLY  Keyword 

READONLY  prohibits  writing  by  the  program  to  a  file. 
This  keyword  has  the  following  form: 
READONLY 


I9B 


9.1.17   RECORDSIZE  Keyword 

RECORDSIZE  specifies  the  logical  record  length. 

If  the  file  contr-ins  fixed-length  records,  RECORDSIZE  specifies  the 
size  of  each  record.  If  the  file  contains  variable-length  records, 
RECORDSIZE  specifies  the  maximum  length  for  any  record. 

You  rrust  specify  RECORDSIZE  when  you  create  a  file  with  either 
Eixed-length  records  or  relative  organization. 
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This  keyword  has  the  following  form: 
RECORDSIZE  =  rl 

rl 

An  integer  expression. 

The  value  of  rl  depends  on  the  value  of  FORM   (see  Section   9.1.9). 

If    the   records   are   formatted,   the   length   is  the   number   of 

characters;   if  the  records   are   unformatted,   the  length   is   the 
number  of  numeric  storage  units  (four  bytes). 

For  existing  files,  the  default  is  the  existing  record  size. 


9.1.18  RECORDTYPB  Keyword 

i' 

RECORDTYPE  specifies  whether  the  file  has  fixed-length  records, 
variable-length  records,  or  segmented  records.  When  you  create  a 
file,  the  defaults  are: 


File  Type 

Default  Record  Type 

Relative  organization 

•FIXED' 

Indexed  organization 

•FIXED' 

Direct  access  files 

•FIXED' 

Formatted  sequential 

•VARIABLE' 

access  files 

Unformatted  sequential 

'SEGMENTED' 

access  files 

A  segmented  record  consists  of  one  or  more  variable-length  records. 
Using  segmented  records  allows  a  FORTRAN  logical  record  to  span 
several  physical  records.  However,  only  sequential  access, 
unformatted  files  with  sequential  organization  can  use  segmented 
records.   You  cannot  specify  'SEGMENTED'  for  any  other  file  type. 


This  keyword  has  the  following  form: 
RECORDTYPE  =  typ 


'^ 


typ 


The  alphanumeric  literal  'FIXED',  'VARIABLE',  -r  'SEGMENTED' 


If  you  do  not  specify  RECORDTYPE  when  accessing  an  existing  file,  the 
record  type  of  the  file  is  used.  An  exception  to  this  is  sequential 
access,  unformatted  files  with  sequential  organization;  these  files 
have  d  default  of  'SEGMENTED'. 

If  you  specify  RECORDTYPE,  typ  must  match  the  record  type  of  the 
existing  file. 

In  fixed-length  record  files,  if  an  output  statement  does  not  specify 
a  full  record,  then  the  record  is  filled  with  spaces  (for  a  formatted 
file)  or  zeroes  (for  an  unformatted  file).  ^^ v  ^^iw;^ -  v.,  4-^^ 
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9.1.19   SHARED  Keyword 

SHARED  specifies  that  the  file  is  to  be  opened  for   shared   access   by 
more  than  one  program  executing  simultaneously. 

Sequential  files  may  only  be  shared  if  they  are  stored   on   disk,   and 
only  one  program  may  have  write  access. 

Relative  and  indexed  files  may  be  shared  with  multiple  programs  having 
write  access. 

This  keyword  has  the  following  form: 

SHARED 

See   the   appropriate   PDP-11   FORTRAN   user's   guide   for   additional 
information  on  this  keyword. 


9.1  .20   TYPE  Keyword 

TYPE  specifies  the  status  of  file  to  be  opened.  If  you  specify  'OLD', 
the  file  must  already  exist.  If  you  specify  'NEW',  a  new  file  is 
created.  If  you  specify  'SCRATCH',  a  new  file  is  created  and  it  is 
deleted  when  the  file  is  closed.  If  you  specify  'UNKNOWN',  the  system 
will  first  try  'OLD';  if  the  file  is  not  found,  the  system  will  use 
'NEW',  thereby  creating  a  new  file.   The  default  is  'NEW'. 

This  keyword  has  the  following  form: 


typ 


TYPE  =  typ 


One  of  the  alphanumeric   literals   'OLD',   'NEW',   'SCRATCH' 
•UNKNOWN' . 


or 


9.1.21   UNIT  Keyword 

UNIT  specifies  the  logical  unit  to  which  a  file  is  to  be  connected. 
The  unit  specification  must  appear  in  the  list.  Another  file  cannot 
be  connected  co  the  logical  unit  when  the  OPEN  statement  is  executed. 

This  keyword  has  the  following  form: 

UNIT  =  u 


An  integer  expression. 


9.1.22   USEROPBM  Keyword  '■"  ■  ^-  ■%:':....,,.,  ..■^.  ;x:;:,,,..:,:. . 

The  USEROP'=:n  keyword  specifies  a  user-written  external  function  that 
controls  the  opening  of  the  file.  Knowledgeable  users  can  employ 
additional  features  of  the  file  management  system  which  are  not 
directly  available  from  FORTRAN,  while  retaining  the  convenience  of 
writing  programs  in  FORTRAN. 
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The  keyword  has  the  following  form: 
USEROPSN  =  p 

P 

An  external  function  name. 


The  external  function  name  P  must  be  declared  in  an  EXTERNAL  statement 
in  the  program  unit. 

Consult  the  PDP-11  FORTRAN  IV-PLMS  User's  Guide   for   information   on 
using  the  USEROPEN  keyword. 


CLOSE 


9 . 2   CLOSE  STATEMENT 

The  CLOSE  statement  disconnects  a  file  from  a  unit. 
The  CLOSE  statement  has  the  following  form: 


u 


CLOSE  (UNIT=u 


.DISPOSE 


DISP 


=  P 


[,ERR=s]) 


A  logical  unit  number, 


An  alphanumeric  literal  that  determines  the   disposition   of   the 


file. 


Its    values   are    'SAVE' 


KEEP 


DELETE 


and  'PRINT' 


s 


The  label  of  an  executable  statement, 


If  you  specify  either  'SAVE'  or  'KEEP',  the  file  is  retained  after  the 
unit  is  closed.  If  you  specify  'PRINT',  the  file  is  submitted  to  the 
line  printer  spooler.   On  some  systems,   the   file   is   deleted   after 


printing. 


If  you  specify  'DELETE',  the  file  is  deleted.   For  scratch 


files,  the  default  is  'DELETE' 


for  all  other  files,  the   default 


IS 

'SAVE'.  The  disposition  specified  in  a  CLOSE  statement  supersedes  the 
disposition  specified  in  the  OPEN  statement,  except  that  a  file  opened 
as  a  scratch  file  cannot  be  saved  or  printed,  nor  can  a  file  opened 
for  read-only  access  be  printed  or  deleted. 

For  example: 

CL0SE(UNIT=1,DISP0SE='PRINT' > 

This  statement  closes  the  file  on  unit  1  and  submits  the  file  for 
printing. 

CLOSE(UNIT=J,DISPOSE='DELETE' ,ERR=99) 

This  statement  closes  the  file  on  unit  J  and  deletes  it. 
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REWIND 


9.3   REWIND  STATEMENT 

The  REWIND  statement   repositions   an  open   sequential   file   at   the 
beginning  of  the  file. 

The  REWIND  statement  has  the  following  forms: 

REWIND  u 

REWIND  (u[,ERR=s]) 


A  logical  unit  number. 


s 


The  label  of  an  executable  statement. 


The  unit  number  must  refer  to  an   open   sequential   file   on   disk   or 
magnetic  tape.   For  example: 

REWIND  3 

This  statement  repositions  logical   unit   3   to   the   beginning   of   a 
currently  open  file. 

You  must  not  issue  a  REWIND  statement  for  a   file   that   is   open   for 
direct  or  keyed  access  or  for  a  relative  or  indexed  organization  file. 


BACKSPACE 


9 . 4   BACKSPACE  STATEMENT 

The  BACKSPACE  statement  repositions  an  open  sequential  file  at  the 
beginning  of  the  preceding  record.  When  the  next  I/O  statement  for 
the  unit  is  executed,  that  record  is  available  for  processing. 

The  BACKSPACE  statement  has  the  following  forms: 

BACKSPACE  u 
BACKSPACE  (U[,ERR=S]) 


s 


A  logical  unit  number. 


The  label  of  an  executable  statement. 


The  unit  number  must  refer  to  an   open   sequential   file   on   disk   or 
magnetic  tape.   For  example: 

BACKSPACE  4 
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This  statement  repositions  the  open  file  on  logical  unit  4  to  the 
beginning  of  the  preceding  record. 

You  must  not  issue  a  BACKSPACE  statement  for  a  file  that  is  open  for 
direct,  keyed,  or  append  access  or  for  a  relative  or  indexed 
organization  file. 


FIND 


9.5   FIND  STATEMENT 

The  FIND  statement  positions  a  direct  access  file  on  a  specified   unit 
to  a  particular  record.   No  data  transfer  takes  place. 

This  statement  has  the  following  form: 


u 


FIND  (u'r) 


A  logical  unit  number, 


The  direct  access  record  number. 

The  record  number  cannot  be  less  than  1  or  greater  than  the  number   of 
records  defined  for  the  file. 


The  associated  variable  of  the  file,   if   specified,   is   set   to   the 
direct  access  record  number. 

For  a  relative  organization  file,  the  record  is  locked. 


For  example; 


FIND  (I'D 


This  statement  positions  logical  unit  1  to  the   first   record 


of   the 


file; 


the  file's  associated  variable  is  set  to  1 


FIND  (4'INDX) 

This  statement  positions  the  file  to  the  record  identified  by  the 
content  of  INDX;  the  file's  associated  variable  is  set  to  the  value 
of  INDX. 


DELETE 


9.6   DBLBTB  STATEMENT 

The  DELETE  statement  deletes  records  in  a  relative   or   indexed   file. 
The  record  is  marked  as  deleted. 


Records  that  have  been  deleted  are  not  accessible  to   subsequent  READ 
or  REWRITE  statements. 

The  DELETE  statement  may  not  be  used  with  a  sequential  file. 
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9.6.1  Sequential  DELETE  Statement 

The  sequential  DELETE  statement  deletes  the  last  record  located  on  the 
unit  by  a  READ  statement. 

The  sequential  DELETE  statement  has  the  following  form; 

DELETE  (u[,ERR=s]) 

u 

A  logical  unit  number. 

s 

The  label  of  an  executable  statement. 

Example: 

DELETE  (11) 

The  last  record  read  will   be   deleted   from  the   file   connected   to 
logical  unit  11 . 

9.6.2  Direct  DELETE  Statement 

The  direct  DELETE  statement  deletes  the  record  specified  by  the  record 
number. 

This  statement  has  the  following  form: 

DELETE  (u'r  [,ERR=s]) 

u 

A  logical  unit  number. 

r 

The  direct  access  record  number. 

s 

The  label  of  an  executable  statement. 

Example: 

DELETE  (I'D 

The  record  specified  by  the  value   of   I   in   the   file   connected   to 
logical  unit  1  will  be  deleted. 


UNLOCK 


9.7   UNLOCK  STATEMENT 

The  UNLOCK  statement  unlocks  records  in  a  relative  or  indexed  file.  A 
record's  being  locked  means  that  it  cannot  be  accessed  by  any  other 
program  or  logical  unit. 

A  record  accessed  in  a  shared-file  environment  is  automatically  locked 
when  a  READ  statement  selects  the  record.  The  record  is  unlocked  when 
another  I/O  statement  is  executed  on  the  same  logical  unit. 
Meanwhile,  attempts  to  access  the  record  will  result  in  error 
messages.  The  UNLOCK  statement  is  used  to  unlock  the  record  without 
performing  an  unnecessary  I/O  operation. 
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The  UNLOCK  statement  has  the  following  forms: 

UNLOCK  u 

UNLOCK  (u  [,ERR=S]) 

U 

A  logical  unit  number. 

8 

The  label  of  an  executable  statement. 

The  UNLOCK  statement  frees  the  records  locked  on  the  specified  logical 
unit.  If  no  record  is  locked,  the  statement  has  no  effect.  Records 
in  a  sequential  file  cannot  be  locked. 

You  must  not  issue  an  UNLOCK  statement  for  a  sequential  organization 
file. 

Consult  the  PDP-11  FORTRAN -IV- PLUS  User's  Guide  for  information  on 
file  sharing  and  record  locking. 


ENDFILE 


9.8   ENDFILE  STATEMENT 

The  ENDFILE;  statement  writes  an  end-file  record  to  the  specified  unit. 
This  statement  has  the  following  forms: 

ENDFILE  u 

ENDFILE  (u  [,ERR=S]) 

U 

A  logical  unit  number. 


8 


The  label  of  an  executable  statement. 


You  can  write  an  end-file  record  only  to  r.t ^; jentially  accessed 
sequential  organization  files  containing  var  iat'J  s-length  or  segmented 
records. 

For  example: 

ENDFILE  2 

This  statement  outputs  an  end-file  record  to  logical  unit  2. 

DEFINE  FILE 


9.9   DEFINE  FILE  STATEMENT 

The  DEFINE  FILE  statement  describes  direct  access  sequential  files 
that  are  associated  with  a  logical  unit  number.  The  OPEN  statement 
(Section  9.1)  is  the  preferred  way  to  do  this.  The  DEFINE  FILE 
statement  establishes  the  size  and  structure  of  the  direct  access 
file. 
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The  DEFINE  FILE  statement  has  the  following  form: 
DEFINE  FILE  u  (m,n,U,asv)  [ , u  (m, n,U  ,asv) ]  ... 

u 

An  integer   constant   or   integer   variable   that   specifies   the 
logical  unit  number. 

m 

An  integer  constant  or  integer  variable  that  specifies  the  number 
of  records  in  the  file. 


n 


An  integer   constant   or   integer   variable   that   specifies   the 
length,  in  16-bit  words  (2  bytes),  of  each  record. 


U 


asv 


Specifies  that  the  file  is  unformatted 
only  acceptable  entry  in  this  position. 


(binary);    this   is   the 


An  integer  variable,  called  the  associated  variable  of  the   file. 

At  the  end  of  each  direct  access  I/O  operation,  the  record  number 

of  the  next  higher-numbered  record  in  the   file   is  assigned   to 
asv. 


DEFINE  FILE  specifies  that  a  file  containing  m  fixed-length  records  of 
n  16-bit  words  each  exists,  or  is  to  exist,  on  logical  unit  u.  The 
records  in  the  file  are  numbered  sequentially  from  1  through  m. 


DEFINE  FILE  must  be   executed   before   the   first 
statement  that  refers  to  the  specified  file. 


direct   access   I/O 


DEFINE  FILE  also  establishes  the  integer  variable  asv  as  the 
associated  variable  of  the  file.  At  the  end  of  each  direct  access  I/O 
operation,  the  FORTRAN  I/O  system  places  in  asv  the  record  number  of 
the  record  immediately  following  the  one  just  read  or  written.  Since 
the  associated  variable  always  points  to  the  next  sequential  record  in 
the  file  (unless  it  is  redefined  by  an  assignment,  input,  or  FIND 
statement),  direct  accer.s  I/O  statements  can  perform  sequential 
processing  of  the  file  by  using  the  associated  variable  of  the  file  as 
the  record  number  specifier. 

For  example: 

DEFINE  FILE  3  ( 1000 ,48 ,U ,NREC) 

This  statement  specifies  that  logical  unit  3  is  to  be  connected  to  a 
file  of  1000  fixed-length  records,  each  record  is  forty-eight  16-bit 
words  long.  The  records  are  numbered  sequentially  from  1  through 
1000,  and  are  unformatted.  After  each  direct  access  I/O  operation  on 
this  file,  the  integer  va-riable  NREC  will  contain  the  record  number  of 
the  recorci  immediately  following  the  record  just  processed. 
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A.l   FORTRAN  CHARACTER  SET 

The  FORTRAN  character  set.  consists  of: 

1.  The  letters  A  through  Z  and  a  through  z 

2.  The  numerals  0  through  9 

3.  The  following  special  characters: 


Character 

Name 

Character 

Name 

A  or  (  '*" ) 

Space  or  tab 

• 

Period 

= 

Equal  sign 

1 

Apostrophe 

+ 

Plus  sign 

n 

Quotation  mark 

- 

Minus  sign 

$ 

Dollar  sign 

* 

Aster  isk 

1 

Exclamation  point 

/ 

Slash 

: 

Colon 

( 

Left  parenthesis 

< 

Left  angle  bracket 

) 

Right  parenthesis 

■,f%';,.;^,- 

Right  angle  bracket 

1 

Comma 



Other  printing  characters  can  appear  in  a  FORTRAN  statement  only  as 
part  of  a  Hollerith  constant.  Any  printing  character  can  appear  in  a 
comment.   See  Table  A-1. 


A. 2   ASCII  CHARACTER  SET 

Table  A-1  is  a  table  representing  the  ASCII  character  set.  At  the  top 
of  the  table  are  hexadecimal  digits  (0  to  7),  and  to  the  left  of  the 
table  are  hexadecimal  digits  (0  to  p).  To  determine  the  hexadecimal 
value  of  an  ASCII  character,  locate  the  ASCII  character  in  the  table, 
use  the  row  number  as  the  unit's  position  digit,  and  use  the  column 
number  as  the  16's  position  digit.  For  example,  the  hexcidecimal  value 
of  the  equal  sign  (=)  is  3D. 
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Table  A-1 
ASCII  Character  Set 


Col 

umns 

0 

0 

1 

2 

3 

4 

5 

6 

7 

NUL 

DLE 

SP 

0 

@ 

P 

\ 

P 

1 

SOH 

DCl 

1 

1 

A 

Q 

a 

q 

2 

STX 

DC  2 

II 

2 

B 

R 

b 

r 

3 

ETX 

DC3 

« 

3 

C 

S 

c 

s 

4 

EOT 

DC  4 

$ 

4 

D 

T 

d 

t 

5 

ENO 

NAK 

•i 

5 

E 

U 

e 

u 

6 

ACK 
BEL 

SYN 

& 

6 

F 

V 

f 

V 

7 

ETB 

1 

7 

G 

W 

g 

w 

8 

BS 

CAN 

( 

8 

H 

X 

h 

X 

9 

HT 

EM 

) 

9 

I 

Y 

i 

y 

A 

LF 

SUB 

* 

• 

J 

Z 

J 

z 

B 

VT 

ESC 

+ 

• 

K 

[ 

k 

{ 

C 

FF 

FS 

f 

< 

L 

\ 

1 

1 

0 

CR 

GS 

- 

= 

M 

] 

m 

} 

E 

SO 

RS 

• 

> 

N 

^ 

n 

~ 

F 

SI 

US 

/ 

■? 

• 

0 

. 

0 

DEL 

NUL 

Null 

DLE 

Data 

Link  Escape 

SOH 

Start  of 

Heading 

DCl 

Device  Control  1 

STX 

Start  of 

Text 

DC  2 

Device  Control  2 

ETX 

End  of  Text 

DC  3 

Device  Control  3 

EOT 

End  of  Transmission 

DC  4 

Device  Control  4 

ENQ 

Enquiry 

NAK 

Negative  Acknowledge 

ACK 

Acknowledge 

SYN 

Sync 

hronous  Idle 

BEL 

Bell 

ETB 

End 

of  Transmission  Block 

BS 

Back! 

space 

CAN 

Cancel 

HT 

Horizontal  Tab 

ulation 

EM 

End 

of  Medium 

LF 

Line 

Feed 

SUB 

Subs 

titute 

VT 

Vertical 

Tab 

ESC 

Esca 

pe 

FF 

Form 

Feed 

FS 

File 

Separator 

CR 

Carriage 

Return 

GS 

Grou 

p  Separator 

SO 

Shift  Out 

RS 

Record  Separator 

SI 

Shift  In 

US 

Unit 

Separator 

SP 

Space 

DEL 

Delete 

A.  3   RADIX-50  CONSTANTS  AND  CHARACTER  SET 


Radix-50  is  a  special  character  data  representation  in  which  up  to  3 
characters  can  be  encoded  and  packed  into  16  bits.  The  Radix~50 
character  set  is  a  subset  of  the  ASCII  character  set. 

The  Radix-50  characters  and  their  corresponding  code  values  are: 


Character 

d) 

ASCII  Octal 
Equivalent 

40 
101  -  132 
44 
56 

60  -  71 

Radix-50  Value 
(Octal) 

Space 

A  -  Z 

$ 

• 

(Unassigne 
0  -  9 

0 

1  -  32 

33 
34 

35 
36  -  47 
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Radix-50  values  are  stored,  up  to  3  characters  per   word,   by   packing 
them  into  single  numeric  values  according  to  the  formula: 

(  (i  *  50  +  j)  *  50  +  k) 

where  i,  j,  and  k  represent  the  code  values  of  3  Radix-50  characters. 

Thus,  the  maximum  Radix-50  value  is: 

47*50*50  +  47*50  +  47  =  174777 

A  Radix-50  constant  has  the  following  form: 

nRclc2. .  .  en 


n 


An  unsigned,  non7ero  integer  constant  that  states  the   number   of 
characters  to  follow. 


~    A  character  from  the  Radix-50  character  set. 

The  maximum  number  of  characters  is  12.  The  character  count  must 
include  any  spaces  that  appear  in  the  character  string  (the  space 
character  is  a  valid  Radix-50  character).  You  can  use  Radix-50 
constants  only  in  DATA  statements. 

Examples  of  valid  and  invalid  Radix-50  constants  are: 


Valid 


4RABCD 


6RAT0AAA 


Invalid 

4RDK0 :   (the  colon  is  not  a  Radix-50 
character) 


When  a  Radix-50  constant  is  assigned  to  a  numeric  variable  or  array 
element,  the  number  of  bytes  that  can  be  assigned  depends  on  the  data 
type  of  the  component  (see  Table  2-2).  If  the  Radix-50  constant 
contains  fewer  bytes  than  the  length  of  the  component,  ASCII  null 
characters  (0  bytes)  are  appended  on  the  right.  If  the  constant 
contains  more  bytes  than  the  length  of  the  component,  the  rightmost 
characters  are  not  used. 
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B.l   EXPRESSION  OPERATORS 

Table  B-1  lists  the  expression  operators  in  each  data  type  in  order  of 
descending  precedence. 


Table  B-1 
Expression  Operators 


Data  Type 

Operator 

Operation 

Operates  upon: 

Arithmetic 

** 

Exponentiation 

Multiplication, 
division 

Addition,  subtraction, 
unary  plus  and  minus 

Arithmetic 
expressions 

Relational 

.GT. 
.GE. 

.LT. 
.LE. 

.EQ. 
.NE. 

Greater  than 

Greater  than  or 
equal  to 

Less  than 

Less  than  or 
equal  to 

Equal  to 

Not  equal  to 

Arithmetic  or  logical 
expressions  (all 
relational  operators 
have  equal  priority) 

Logical 

.NOT. 
.AND. 

.NOT. A  is  true  if  and 
only  if  A  is  false 

A.AND.B  is  true  if 
and  only  if  A  and  B 
are  both  true 

Logical  or  integer 
expressions 

(Continued  on  next  page) 
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Table  B-1  (Cont. ) 
Expression  Operators 


Operator 


.OR, 


.EQV. 


.XOR. 


Operation 


A.OR.B  is  true  if 
either  A  or  B  or 
both  are  true 

A.EQV.B  is  true  if  and 
only  if  A  and  B 
are  both  true  or  A 
and  B  are  both  false 

A.XOR.B  is  true  if  and 
only  if  A  is  true  and 
B  is  false  or  B  is 
true  and  A  is  false 


Operates  upon; 


.EQV.  and 
have  equal 
priority 


XOR. 


B . 2   STATEMENTS 

The  following  list  summarizes  the  statements  available  in  the  PDP-11 
FORTRAN  language,  including  the  general  form  of  each  statement.  The 
statements  are  listed  alphabetically  for  ease  of  reference.  The 
"Manual  Section"  column  indicates  the  section  of  the  manual  that 
describes  each  statement  in  detail. 


Form 


Effect 


Manual 
Section 


ACCEPT 


See  READ,  Formatted  Sequential 
See  READ,  List-Directed 


Arithmetic/Logical  Assignment 

v=e 

V        A  variable  name,  or  an  array  element  name, 

e        An  expression. 

Assigns  the  value  of  the  arithmetic  or 
logical  expression  to  the  variable. 

Statement  Function 
f  ([p[,p]...])=e 

f        A  symbolic  name. 

p        A  symbolic  name. 

e        An  expression. 


7.3.1 
7.3.3 

3.1,  3.2 


6.2.1 
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^^       Form                       Effect 

Manual 
Section 

Creates  a  user-defined  function  having  the 
variable  p  as  a  dummy  argument.   When 
referred  to,  the  expression  is  evaluated 
using  the  actual  arguments  in  the  function 
call. 

ASSIGN  s  TO  V 

3.3 

s        A  label  of  an  executable  statement. 

V        An  integer  variable  name. 

Associates  the  statement  label  s  with  the 
integer  variable  v  for  later  use  in  an 
^^k                    assigned  GO  TO  statement. 

BACKSPACE  u 

BACKSPACE  (u  [,ERR=s]) 

9.4 

u        An  integer  expression. 

s        A  label  of  an  executable  statement. 

^^                   Backspaces  one  record  the  currently  open  file 
^^^                   logical  unit  u. 

on 

BLOCK  DATA  [nam] 

5.11 

nam     A  symbolic  name. 

Specifies  the  subprogram  that  follows  as  a 
BLOCK  DATA  subprogram. 

^^        CALL  f  [(  [a]  [,  [a]]  ...)] 

4.5 
6.2 

f        A  subprogram  name  or  entry  point. 

a        An  expression,  an  array  name,  or  a  procedure 

name. 

Calls  the  subroutine  subprogram  with  the 
name  specified  by  f,  passing  the  actual 
arguments  a  to  replace  the  dummy 
arguments  in  the  subroutine  definition. 

• 

1 
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Form 


CLOSE  (p[,p]...) 


e 
s 


Effect 


One  of  the  following  forms: 

UNIT  =  e 

DISPOSE  =  'SAVE' 

DISPOSE  =  'KEEP' 

DISPOSE  =  'DELETE' 

DISPOSE  =  'PRINT' 
ERR  =  s 

An  integer  expression. 

A  label  of  an  executable  statement. 

Closes  the  specified  file.   DISPOSE  can 
be  abbreviated  DISP. 


Manual 
Section 


9.2 


COMMON  [/[cb]/]  nlist  [  [ , ] / [cb]/nlist] . . . 

cb       A  common  block  name. 

nlist    A  list  of  one  or  more  variable  names, 
array  names,   or  array  declarators 
separated  by  commas. 

Reserves  one  or  more  blocks  of  storage 
space  under  the  name  specified  to  contain 
the  variables  associated  with  that  block 
name. 


5.4 


CONTINUE 


4.4 


Causes  no  processing, 


DATA  nlist/clist/[[,]  nl ist/clist/] . . . 

nlist    A  list  of  one  or  more  variable  names, 
array  names,  or  array  element  names 
separated  by  commas.   Subscript 
expressions  -.ust  be  constant. 

clist    A  list  of  orie  or  more  constants  separated 
by  commas,  each  optionally  preceded  by  j*, 
where  j  is  a  nonzero,  unsigned  integer 
constant. 

Initially  stores  elements  of  clist 
in  the  corresponding  elements  of 
nlist. 


5.8 
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# 


Form  Effect 

DECODE  (c, f, b[,ERR=s]) [list] 

c        An  integer  expression. 

f        A  format  specifier. 

b        A  variable  name,  array  name,  or  array 
element  name. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  c  characters  from  buffer  b  and 
assigns  values  to  the  elements  in  the 
list,  converted  according  to  format 
specification  f. 

DEFINE  FILE  u  (m, n,U  , v) [ , u (m, n,U , v) ] . . . 


u 
m 
n 
v 


An  integer  variable  or  integer  constant. 

An  integer  variable  or  integer  constant. 

An  integer  variable  or  integer  constant. 

An  integer  variable  name. 

Defines  the  record  structure  of  a 
direct  access  file  where  u  is  the  logical 
anit  number,  m  is  the  number  of  fixed- 
length  records  in  the  file,  n  is  the 
length  in  words  of  a  single  record,  U  is 
a  fixed  argument,  and  v  is  the  associated 
variable. 


Manual 
Section 


7.6 


9.9 


DELETE  (u  [,ERR-s]) 
DELETE  (u'r  [,ERR«s]) 


r 

s 


An  integer  expression. 

An  integer  expression. 

A  label  of  an  executable  statement. 

Deletes  the  record  on  unit  u  that  is  specified 
by  r,  or  the  most  recently  accessed  record. 


DIMENSION  a(d)  [,a(d)  ]  .  .. 

a(d)     An  array  declarator. 


Specifies  storage  space  requirements  for 
arrays. 


9.6 
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Form 


Effect 


Manual 
Section 


4.3 


DO  s  [,]  V  =  el,e2[,e3] 

s        A  label  of  an  executable  statement. 
V        A  variable  name. 
ei,e2,e3  Numeric  expressions. 

Executes  the  DO  loop  by  performing  the  following  steps: 

1.  Set  V  =  el 

2.  Execute  all  statements  through 
statement  number  s 

3.  Evaluate  v  =  v+e3 

4.  Repeat  steps  2  through  3  for  the  following 
iterations: 

MAX  (1,  INT((e2  -  el)/e3)  +  1) 


ENCODE  (c,f,b[,ERR=s])  [list] 

c        An  integer  expression. 

f        A  format  specifier. 

b        A  variable  name,  array  name,  or  array 
element  name. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Writes  c  characters  into  buffer  b,  which 

contains  the  values  of  the  elements  of 

the  list,  converted  according  to  format 
specification  f. 


7.6 


END 


Delimits  a  program  unit, 


4.9 


ENDFILE  u 

ENDFILE  (u  [,ERR-s]) 


u 

s 


An  integer  expression. 

A  label  of  an  executable  statement. 

Writes  an  end-file  record  on  logical 
unit  u. 


9.8 
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Effect 


END=S,ERR=S 

s        A  label  of  an  executable  statement. 

Transfers  control  on  end-of-file  or  error 
condition.   This  is  an  optional  element 
in  each  type  of  I/O  statement  and  allows 
the  program  to  transfer  to  statement 
number  s  when  an  end-of-file  (END=)  or 
error  (ERR=)  condition  occurs. 


Manual 
Section 


7.2.5 


ENTRY   nam  [  (  tp  [,p]  . . .  ] )  ] 

nam      A  subprogram  name. 

|i        A  symbolic  name. 

Defines  an  alternative  ent   point  within 
a  sui^routine  or  function  suoprogram. 

EQUIVALENCE  (nli St )  [ ,  (nl i st ) ] . . . 

nlist    A  list  of  two  or  more  variable  names, 
array  names,  or  array  element  names, 
separated  by  commas.   Subscript 
expressions  must  be  constants. 

Assigns  each  of  the  names  in  nlist 
the  same  storage  location. 

EXTERNAL  v[,v]  ..  . 

V  A  subprogram  name. 

Defines  the  names  specified  as  subprograms. 
EXTERNAL  *v[,*v] ... 

V  A  subprogram  name. 

Defines  the  names  specified  as 
user-defined  subprograms. 


6.2.4 


5.6 


5.7 


5.7 


FIND  (u'r) 
u 

r 


9.5 


An  integer  expression. 

An  integer  expression. 

Positions  the  file  on  logical 

unit  u  to  the 

record  specified  by  r. 
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Effoct 


Manual 
Section 


FORMAT  (field  specification,...) 


Describes  the  format  in  which  one  or 
mor    ecords  are  to  be  transmitted;   a 
statement  label  must  be  present. 


8.1    -   8.8 


[typ]    FUNCTION    nam  [*n]  [ ( [p [ , p] . . . ] ) ] 


6.2.2 


typ 

nam 
*n 


A  data  type  specifier. 

A  symbolic  name. 

A  data  type  length  specifier. 

A  symbolic  name. 

Begins  a  function  subprogram,  indicating 
the  program  name  and  any  dummy  argument 
names  (p).   An  optional  type  specification 
can  be  included. 


GO  TO  s 

s 


A  label  of  an  executable  statement. 
Transfers  control  to  statement  number  s. 


4.1.1 


GO  TO  (slist)  [,]  e 
slist 


4.1.2 


A  list  of  one  or  more  statement 
labels  separated  by  commas. 

An  integer  expression. 

Transfers  control  to  the  statement 
specified  by  the  value  of  e  (if  e=l, 
control  transfers  to  the  first  statement 
label;   if  e=2,  control  transfers 
to  the  second  statement  label,  etc.). 
If  e  is  less  than  1  or  greater  than  the 
number  of  statement  labels  present,  no 
transfer  takes  place. 
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GO  TO  V  [[,]  (slist)  ] 

V        An  integer  variable  name. 

slist    A  list  of  one  or  more  statement 
labels  separated  by  commas. 

Transfers  control  to  the  statement  most 
recently  associated  with  v  by  an  ASSIGN 
statement. 


Manual 
Section 


4.1.3 


IF  (e)  sl,s2,s3 


e 
s 


An  expression. 

A  label  of  an  executable  statement. 

Transfers  control  to  statement  si 
depending  on  the  value  of  e  (if  e  is 
less  than  0,  control  transfers  to 
si;   if  e  equals  0,  control  transfers 
to  s2;   if  e  is  greater  than  0,  control 
transfers  to  s3) . 


4.2.1 


IF  (e)  st 

e 
st 


An  expression. 

Any  executable  statement  except  a  DO  or 
logical  IF. 

Executes  the  statement  if  the  logical 
expression  has  a  value  of  true. 


4.2.2 


IMPLICIT  typ  (a[,a]  ...)  [,typ(a[,a]...)]  ... 


typ 

a 


A  data  type  specifier. 

Either  a  single  letter,   or  two  letters 
in  alphabetical  order  separated  by 
a  hyphen  (i.e.,  X-Y)  . 

The  element  a  represents  a  single  (or  a 
range  of)  letter (s)  whose  presence  as  the 
initial  letter  of  a  variable  specifies 
the  variable  to  be  of  that  data  type. 


5.1 


• 
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Effect 


INCLUDE  'file  specification' 

'file  specification' 

An  alphanumeric  literal. 


Manual 
Section 


1.5 


Includes  the  source  statements  in  the 
compilation  from  the  file  specified. 


OPEN(par [,par] . . . ) 
par 


9.1 


key 
value 


A  keyword  specification  in  one  of  the  following 
forms: 

key 

key  =  value 

A  keyword,  as  described  below. 

Depends  on  the  keyword,  as  described 
below. 


Keyword 
ACCESS 


ASSOCIATEVARIABLE 
BLOCKSIZE 
BUFFERCOUNT 
CARRIAGECONTROL 


DISPOSE 
DISP 

ERR 

EXTENDSIZE 

FORM 

INITIALSIZE 

KEY 

MAXREC 

NAME 

NOSPANBLOCKS 

ORGANIZATION 


READONLY 

RECORDSIZE 

RECORDTYPE 


SHARED 


Values 

•SEQUENTIAL' 
•DIRECT' 
'APPEND^ 
'KEYED' 
V 

e 
e 

•  FORTRAN • 
•LIST' 
•NONE' 

•save'  or  'KEEP' 

•PRINT^ 

'DELETE^ 

s 

e 

•  FORMATTED • 
•UNFORMATTED' 

e 
(k[,k]...) 
e 
c 

'SEQUENTIAL' 
•RELATIVE' 
' INDEXED' 


'FIXED' 

•VARIABLE' 

•SEGMENTED' 
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e 
k 

P 

s 

V 


Effect 


TYPE 


UNIT 
USEROPEN 


■OLD' 
'NEW 

•scratch' 

'UNKNOWN' 

e 

P 


an  array  name,  variable  name,  array 
element  name,  or  alphanumeric  literal. 

A  numeric  expression. 

A  key  specification. 

A  program  unit  name. 

A  label  of  an  executable  statement. 

n  integer  variable  name. 

Opens  a  file  on  the  specified  logical  unit 
according  to  the  parameters  specified  by 
the  keywords. 


Manual 
Section 


PARAMETER   p=C  [ , p=C ] . . . 

-p  A  symbolic  name. 

0        A  constant. 

Defines  a  symbolic  name  for  a  constant. 


5.9 


# 


PAUSE  [disp] 
disp 


4.7 


A  decimal  digit  string  containing  one  to  five 
digits,  an  octal  constant,  or  an 
alphanumeric  literal. 

Suspends  program  execution  and  prints  the 
display,  if  one  is  specified. 


PRINT 


See  WRITE,  Formatted  Sequential, 
See  WRITE,  List-Directed. 


7.3.2 
7.3.4 


PROGRAM  nam 

nam     A  symbolic  name. 

Specifies  a  name  for  the  main  program. 


5.10 
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READ  (u, f  [,ENU=s]  t,ERR  =  s])  [list] 

READ  f[,list] 

ACCEPT  f(,list] 

u        An  integer  expression. 

f        A  format  specifier. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  one  or  more  logical  records  from 
unit  u  and  assigns  values  to  the  elements 
in  the  list.   The  values  are  converted 
according  to  format  specification  f. 


Manual 
Sect  ion 


7.3.1 


READ  (u'r,f  [,ERR's]) [list]  ' 

U        An  integer  expression. 

r        An  integer  expression. 

£        A  £ormat  specifier. 

■        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  records  starting  at  record  r 
£rom  logical  unit  u  and  assigns 
values  to  the  elements  in  the  list. 
The  values  are  converted  according 
to  format  specification  f. 

READ{u[,END=s]  [,ERR  =  s])  [list] 

u  An    integer    expression. 

s  A    label    of    an   executable   statement. 

list  An    I/O    list. 


7.4.1 


-'.■d- 


7.3.5 
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Effect 


Reads  one  unformatted  record  from  logical 
unit  u,  and  assigns  values  to  the 
elements  in  the  list. 


Manual 
Section 


READ(u'r [,ERR=s] ) [list] 

u        An  integer  expression. 

r        An  integer  expression. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Reads  record  r  from  logical  unit  u  and  assigns 
values  to  the  elements  in  the  list. 


7.4.3 


READ  (u,* [,END=s] [,ERR=s] ) list 
READ  *,list 
ACCEPT  *, list 

u        An  integer  expression. 

*        Denotes  list-directed  formatting. 

A  label  of  an  executable  statement. 
An  I/O  list. 


7.3.3 


s 
list 


Reads  one  or  more  records  from 
logical  unit  u  and  assigns  values  to 
the  elements  in  the  list.   The 
values  are  converted  according  to  the 
data  type  of  the  list  element. 


READ    (uJkEY      )=kv(,KEYID=kn]  [,ERR=s])  [list] 
■KEYEQl 
KEYGE( 

keygtJ 

u  An  integer  axpression. 

kv  A  key  expression. 

kn  An  integer  expression. 

8  A  label  of  an  executable  statement. 

list  An  I/O  list. 


7.5.3 


-  ^-^,:^:m^-  -■ 


Reads  the  record  on  logical  unit  u  described 

by  the  key  expression  kv  and  key-of-reference  number  kn, 
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Effect 

The  values  in  the  record  are  assigned  to  the 
elemf  ts  in  the  list. 


Manual 
Section 


READ  (u,f,(KEY   )  =k  V  [ ,  KEYID=kn]  [ ,  ERR=s]  )  [  1  i  St  ] 

Ikeyeq ( 
jkeygeC 
(keygt) 


7.5.1 


u 

f 

kv 
kn 
s 
list 


An  integer  expression. 

A  format  specifier. 

A  key  expression. 

An  integer  expression. 

A  label  of  an  executable  statement. 

An  I/O  list. 

Reads  the  record  on  logical  unit  u  described 
by  the  key  expression  kv  and  key-of -reference 
number  kn.   The  values  in  the  record  are 
converted  according  to  format  specification 
f  and  assigned  to  the  elements 
in  the  list. 


RETURN 


4.6 


Returns  control  to  the  calling  program 
from  the  current  subprogram. 


REWIND  u 

REWIND  (u[,ERR=s]) 

u        An  integer  expression. 

s        A  label  of  an  executable  statement. 

Repositions  logical  unit  u  to  the 
beginning  of  the  currently  opened  file, 

REWRITE  (u,f [,ERR=s] )  [list] 

u        An  integer  expression. 

f        A  format  specifier. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 


9.3 


7.5.4 
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Effect 


Rewrites  the  current  record  on  logical 
unit  u,  containing  the  values  of  the 
elements  of  the  list.   The  values  are 
translated  according  to  format 
specification  f. 


Manual 
Sect  ion 


REWRITE  {u[,ERR=s])  [list] 

u        An  integer  expression. 

s         A  label  of  an  executable  statement. 

list      An  I/O  list. 

Rewrites  the  current  record  on  logical 
unit  u,  containing  the  values  of 
the  elements  of  the  list. 


7.9.2 


STOP  [disp] 
di  sp 


4.8 


A  decimal  digit  string  containing  one  to  five 
digits,  an  octal  constant,  or  an 
alphanumeric  literal. 

Terminates  program  execution  and  prints 
the  display,  if  one  is  specified. 


SUBROUTINE  nam [ (  [p [ , p]  .  .  .  ]  )  ] 
nam       A  symbolic  name. 
p         A  symbolic  name. 


6.2.3 


Begins  a  subroutine  subprogram,  indicating 
the  program  name  and  any  dummy  argument 
names  (p) , 


TYPE 


See  WHITE,  Formatted  Sequential 
See  WRITE,  List-Directed. 


7.3.2 
7.3.4 


Type    Declaration 
typ   v[,  v]  .  .  . 
typ 


One    of    the    following    data    types: 

BYTE 

LOGICAL 

LOGICAL*: 

L0GICAL*2 

L0GICAL*4 


5.2 
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INTEGER 

INTEGER* 2 

INTEGER*4 

REAL 

REAL* 4 

REAL*8 

DOUBLE  PRECISION 

COMPLEX 

C0MPLEX*8 

A  variable  name,  array  name, 
function  or  function  entry  name,  or 
an  array  declarator.   The  name  can 
optionally  be  followed  by  a  data 
type  length  specifier  (*n). 

The  symbolic  names  (v)  are  assigned  the 
specified  data  type. 


Manual 
Section 


UNLOCK  U 

UNLOCK    (u[,ERR=s]) 


u 

s 


An  integer  expression. 

A  label  of  an  executable  statement. 

Unlocks  all  records  currently  locked  on 
logical  unit  u. 


9.7 


VIRTUAL  a(d)  [,a(d)  ]  ..  . 

a(d)      An  array  declarator. 


5.5 


Specifies  storage  space  for  arrays 
outside  normal  program  address  space. 

WRITE  (u, f  [,ERR=s])  [list] 

PRINT  f[,list] 

TYPE  f[,list] 

u         An  integer  expression. 

f        A  format  specifier. 

s        A  label  of  an  executable  statement. 

list     An  I/O  list. 

Writes  one  or  more  records  to  logical  unit 
u,  containing  the  values  of  the  elements 
in  the  list.   The  values  are  converted 
according  to  format  specification  f. 


7.3.2 
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WRITE  (u'r,f  [,ERR=s])  [list] 

u        An  integer  expression. 

r         An  integer  expression. 

f        A  format  specifier. 

s        A  label  of  an  executable  statement. 

list      An  I/O  list. 

Writes  one  or  more  records  on  logical  unit 
u,  containing  the  values  of  the  elements 
of  the  list  starting  at  record  r.   The 
values  are  converted  according  to  format 
specification  f. 


Manual 
Sect  ion 


7.4.2 


WRITE  (u  [,ERR==s]  )  [list] 

u         An  integer  expression. 

s         A  label  of  an  executable  statement  label. 

list      An  I/O  list. 

Writ-   one  unformatted  record  to  logical 
unit  i  containing  the  values  of  the  elements 
in  t.ie  list. 


7.3.6 


WRITE  (u'r [,ERR-s] )  [list] 

u         An  integer  expression. 

r         An  integer  expression. 

s         A  label  of  an  executable  statement  label. 

list      An  I/O  list. 

Writes  record  r  to  logical  unit  u  containing 
the  values  of  the  elements  in  the  list. 


7.4.4 


WRITE(u, *[,ERR=s] ) list 
PRINT  *,list 
TYPE  *-,li3t 

An  integer  expression. 

Denotes  list-directed  formatting. 


u 

* 


7.3.4 


B-17 


FORTRAN  LANGUAGE  SUMMARY 


Form  Effect 

s  A  label  of  an  executable  statement, 

list  An  I/O  list. 

Writes  one  or  more  logical  records  to  logical 
unit  u  containing  the  values  of  the  elements 
in  the  list.   The  values  are  converted 
according  to  the  data  type  of  the  list 
element. 


Manual 
Section 


B.3   LIBRARY  FUNCTIONS 

Table  B-2  lists  the  FORTRAN  IV  library  functions.   Table  B-3  lists  the 
FORTRAN   IV-PLUS   generic   functions   and   processor-defined  functions 
(listed  in  the  column  headed  "PDF  Name").   Superscripts  in 
refer  to  notes  which  follow  the  tables. 


the   tables 
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Table    B-2 

FORTRAN    Library    Functions 

Form 

Definition 

Argument 
Type 

Result 
Type 

ABS(X) 

Real  absolute  value 

Real 

Real 

lABS(l) 

Integer  absolute  value 

Integer 

Integer 

DABS(X) 

Double  precision  absolute  value 

Double 

Double 

CABS(Z) 

Complex  to  Real,  absolute  value' 

Complex 

Real 

FLOAT(I) 

Integer  to  Real  conversion- 

Integer 

Real 

IFIX(X) 

Real  to  Integer  conversion- 

Real 

Integer 

SNGL(X) 

Double  to  Real  conversion- 

Double 

Real 

DBLE(X) 

Real  to  Double  conversion- 

Real 

Double 

REAL(Z) 

Complex  to  Real  conversion, 

obtain  real  part 

Complex 

Real 

AIMAG(Z) 

Complex  to  Real  conversion, 

obtain  imaginary  part 

Complex 

Real 

CMPLXIX.Y) 

Real  to  Complex  conversion 

CMPLX(X.Y)-X-H-Y 

Real 

Complex 

Truncation  functions  return  the  sign  of 

the  argument  '  largest  integer  •    largi 

AINT(X) 

Real  to  Real  truncation  " 

Real 

Real 

INT(X) 

Real  to  Integer  truncation  ' 

Real 

Integer 

IDINT(X) 

Doul)le  to  Integer  truncation  ' 

Double 

Integer 

Remainder  functions  return  the  remainder 

when  the  first  argument  is  divided  by 

the  second. 

AMODIX.Y) 

Real  remainder 

Real 

Real 

MOD(l,J) 

Integer  remainder 

Integer 

Integer 

DMODIX.Y) 

Double  precision  remainder 

Double 

Double 

Maximum  value  functions  return  the 

largest  value  from  among  the  argument 

list;  2  or  more  arguments. 

AMAXOdJ,...) 

Real  maximum  from  Integer  list 

Integer 

Real 

AMAXKX.Y,...) 

Real  maximum  from  Real  list 

Real 

Real 

MAXOd.J,...) 

Integer  maximum  from  Integer  list 

Integer 

Integer 

MAXKX.Y,...) 

Integer  maximum  from  Real  list 

Real 

Integer 

DMAXKX.Y,...) 

Double  maximum  from  Double  list 

Double 

Double 

Minimuin  value  functions  return  the  small 

est  value  from  among  the  argument  list. 

2  or  more  arguments. 

AMINOd.J,...) 

Real  minimum  of  Integer  list 

Integer 

Real 

AMINKX.Y,...) 

Real  minimum  of  Real  list 

Real 

Real 

MINOdJ,...) 

Integer  minimum  of  Integer  list 

Integer 

Integer 

MINKX.Y,...) 

Integer  minimum  of  Real  list 

Real 

Integer 

DMINKX.Y,...) 

Double  minimum  of  Double  list 

Double 

Double 

(Continued    on    nc 

•xt    paqc-) 
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FORTRAN  Library  Functions 


Form 

Definition 

Argument 
Type 

Result 
Type 

SIGN(X,Y) 

ISIGNd.J) 

DSIGN(X,Y) 

The  transfer  of  sign  functions  return 
(sign  of  the  second  argument)  *  (absolute 
value  of  first  argument). 

Real  transfer  of  sign 

'  -""aer  transfer  of  sign 

Douule  precision  transfer  of  sign 

Real 

Integer 

Double 

Real 

Integer 

Double 

DIM(X,Y) 
IDIMd.J) 

Positive  cJifference  functions  return  the 
first  argument  minus  the  minimum  of  the 
two  arguments. 

Real  positive  difference 
Integer  positive  difference 

Real 
Integer 

Real 
Integer 

EXP(X) 

DEXP(X) 

CEXP(Z) 

Exponential  functions  return  the  value 
of  e  raised  to  the  argument  power. 

eX 
eX 
ez 

Real 

Double 

Complex 

Real 

Double 

Complex 

'ALOG(X) 
ALOGIO(X) 
DLOG(X) 
DLOGIO(X) 
CLOG(Z) 

loge(X) 

logio(X) 

loge(X) 

logio(X) 

loge(Z) 

Real 

Real 

Double 

Double 

Complex 

Real 

Real 

Double 

Double 

Complex 

'SQRT(X) 
DSQRT(X) 
CSQRT(Z) 

Square  root  of  Real  argument 

Square  root  of  Double  precision  argument 

Square  root  of  Complex  argument 

Real 

Double 

Complex 

Real 

Double 

Complex 

"SINIX) 
DSIN(X) 
CSIN(Z) 

Real  sine 

Double  precision  sine 

Complex  sine 

Real 

Double 

Complex 

Real 

Double 

Complex 

"COS(X) 
DCOS(X) 
CCOS(Z) 

Real  cosine 

Double  precision  cosine 

Complex  cosine 

Real 

Double 

Complex 

Real 

Double 

Conr.plex 

TANH(X) 

Hyperbolic  tangent 

Real 

Real 

'."ATAN(X) 
DATAN(X) 
ATAN2(X,Y) 
DATAN2(X,Y) 

Real  arc  tangent 

Double  precision  arc  tangent 

Real  arc  tangent  of  (X/Y) 

Double  precision  arc  tangent  of  (X/Y) 

Real 
Double 
Real 
Double 

Real 
Double 
Real 
Double 

CONJG(Z) 

Complex  conjugate,  if  Z=X+i*Y 
CONJG(Z)=X-i*Y 

Complex 

Complex 

"RANd.J) 

Returns  a  pseudo-random  number  of 
uniform  distribution  over  the  range  of 
Oto  1. 

Integer 

Real 

(ContinuecJ  on  next  page) 
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Generic  and  Processor-Defined  Functions 


Functions 

Number  of 
Arguments 

Generic 
Name 

PDF 
Name 

Type  of 
Argument 

Type  of 
Result 

Square  Root* 

SORT 

SORT 

DSQRT 

CSQRT 

Real 

Double 

Complex 

Real 

Double 

Complex 

Natural  Logarithm*  , 
log.a 

LOG 

A  LOG 
DLOG 
CLOG 

Real 

Double 

Complex 

Real 

Double 

Complex 

Common  Logarithm* 

'.-■  'V 

log,oa 

LOG  10 

ALOGIO 
DLOGIO 

Real 
Double 

Real 
Double 

Exponential 
e" 

EXP 

EXP 

DEXP 

CEXP 

Real 

Double 

Complex 

Real 

Double 

Complex 

Sine* 
Sin  a 

SIN 

SIN 

DSIN 

CSIN 

Real 

Double 

Complex 

Real 

Double 

Complex 

Cosine* 
Cos  a 

COS 

COS 

DCOS 

CCOS 

Real 

Double 

Complex 

Real 

D.'ible 

Complex 

Tangent*                            .  ;:  , 
Tan  a 

TAN 

TAN 
DTAN 

Real 
Double 

Real 
Double 

Arc  Sine '°.^ 

* . 

Arc  Sin  a 

ASIN 

ASIN 
DAS  IN 

Real 
Double 

Real 
Double 

Arc  Cosine'"'''       ..•.               . 
Arc  Cos  a 

■"',^W'/:' 

ACOS 

ACOS 
DACOS 

Real 
Double 

Real 
Double 

Arc  Tangent  ^ 
Arc  Tan  a 

ATAN 

ATAN 
DATAN 

Real 
Double 

Real 
Double 

•   (Continued  on  next  page) 
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Table  B-3  (Cent.  ) 
Generic  and  Processor-Defined  Functions 


Functions 

Number  of 
Arguments 

Generic 
Name 

PDF 
Name 

Type  of 
Argument 

Type  of 
Result 

Arc  Tangent^'* 
Arc  Tan  ai/aj 

2 

ATAN2 

ATAN2 
DATAN2 

Real 
Double 

Real 
Double 

Hyperbolic  Sine 
Sinh  a 

1 

SINH 

SINH 
DSINH 

Real 
Double 

Real 
Double 

Hyperbolic  Cosine 
Cosh  a 

1 

COSH 

COSH 
DCOSH 

Real 
Double 

Real 
Double 

Hyperbolic  Tangent 
Tanh  a 

1 

TANH 

TANH 
DTANH 

Real 
Double 

Real 
Double 

Absolute  value ' 
[a] 

1 

ABS 

ABS 

DABS 

CABS 

IIABS 

JIABS 

Real 
Double 
Complex 
Integer "2 
lnteger*4 

Real 
Double 
Real 

Integer* 2 
lnteger*4 

lABS 

IIABS 
JIABS 

Integer* 2 
Integer* 4 

Integer* 2 
Integer *4 

Truncation^ 
[a] 

1 

INT 

IINT 
JINT 
IIDINT 
JIDINT 

Real 
Real 
Double 
Double 

Integer* 2 
Integer *4 
Integer* 2 
Integer* 4 

IDINT 

IIDINT 
JIDINT 

Double 
Double 

Integer "2 
Integer* 4 

AINT 

AINT 
DINT 

Real 
Double 

Real 
Double 

Nearest  Integer^ 
(a+.5»sign(a)] 

1 

NINT 

ININT 
JNINT 
IIDNNT 
JIDNNT 

Real 
Real 
Double 
Double 

Integer* 2 
Integer* 4 
Integer* 2 
Integer *4 

IDNINT 

IIDNNT 
JIDNNT 

Double 
Double 

Integer* 2 
Integer *4 

ANINT 

ANINT 
DNINT 

Real 
Double 

Real 
Double 

(Continued  on  next  page) 
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Table  B-3  (Cent. ) 
Generic  and  Processor-Defined  Functions 


Functions 

Number  of 
Arguments 

Generic 
Name 

PDF 
Name 

Type  of 
Argument 

Type  of 
Result 

Fix' 

(real-to-integer  conversion) 

1 

IFIX 

IIFIX 
JIFIX 

Real 
Real 

lnteger*2 
lnteger*4 

Float^ 

(integer-to-real  conversion) 

1 

FLOAT 

FLOATI 
FLOATJ 

Integer* 2 
Integer* 4 

Real 
Real 

Double  Precision  Float' 
(integer-to-double  conversion) 

1 

D FLOAT 

DFLOTI 
DFLOTJ 

Integer* 2 
Integer* 4 

Double 
Double 

Conversion  to'  Single 
Precision 

1 

SNGL 

SNGL 

FLOATI 

FLOATJ 

Real 
Double 
Integer* 2 
Integer *4 

Real 
Real 
Real 
Real 

Conversion  to ' 
Double  Precision 

1 

DBLE 

DBLE 

DFLOTI 
DFLOTJ 

Real 
Double 
Integer '2 
Integer* 4 

Double 
Double 
Double 
Double 

Real  Part  of  Complex 

1 

- 

REAL 

Complex 

Real 

Imaginary  Part  of  Complex 

1 

— 

AIMAG 

Complex 

Real 

Complex  From  Two  Reals 

2 

- 

CMPLX 

Real 

Complex 

Complex  Conjugate 

(ifa=(X,Y) 
CONJG(a)=(X,-Y) 

1 

CONJG 

Complex 

Complex 

Double  product  of  Reals 
a,  *ai 

2 

— 

DPROD 

Real 

Double 

(Continued  on  next  page) 
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Table  B-3  (Cont.  ) 
Generic  and  Processor-Defined  Functions 


Number  of 

Generic 

PDF 

Type  of 

Type  of 

Functions 

Arguments 

Name 

Name 

Argument 

Result 

Maximum 

n 

MAX 

AMAX1 

Real 

Real 

'  :;'*-''0      • 

DMAX1 

Double 

Double 

max(a,,a2,...a„) 

«      < 

IMAXO 

Integer* 2 

Integer* 2 

(roturns  the  maximum  value 

4 

JMAXO 

lnteger*4 

lnteger*4 

MAXO 

IMAXO 

lnteger*2 

Integer "2 

from  among  the  argument 
list;  there  must  be  at  least 

• 

JMAXO 

Integer* 4 

Integer "4 

two  arguments) 

MAX1 

IMAX1 

Real 

Integer* 2 

;"■■'',''''''   .'.       ••'.'-    •*        ■       .     '*■■'  ■    ' 

JMAXl 

Real 

integer*4 

AMAXO 

AIMAXO 

Integer* 2 

Real 

:'''-''-:'S.    'r:          ^'      :  .       '  ■     '                 '     ' 

i--T.-!.  .'.:■■;•■■■■■ 

AJMAXO 

Integer* 4 

Real 

Minimum 

n 

MIN 

AMIN1 

Real 

Real 

DMIN1 

Double 

Double 

min{a,,a2,. .  .a„) 

IMINO 

Integer* 2 

Integer* 2 

(returns  the  minimum  value 

JMINO 

Integer* 4 

Integer* 4 

MINO 

IMINO 

Integer* 2 

Integer '2 

among  the  argument  list; 

JMINO 

Integer "4 

lnteger*4 

there  must  be  at  least  two 
arguments) 

MINI 

IMIN1 

Real 

Integer* 2 

y  ■"."'    ■■_    \                       *■ 

JMIN1 

Real 

lnteger*4 

AMINO 

AIMING 

Integer '2 

Real 

./-'-■- 

AJMINO 

lnteger*4 

Real 

Positive  Difference 

2 

DIM 

DIM 

Real 

Real 

DDIM 

Double 

Double 

a,-(min(a,,a2)) 

^'.:      ■                       '  ■  ■    '. 

IIDIM 

Integer "2 

Integer* 2 

(returns  the  first  argument 

'''■:'„  -■^'* 

JIDIM 

lnteger*4 

Integer* 4 

IDIM 

IIDIM 

Integer* 2 

Integer* 2 

minus  the  minimum  of  the 

JIDIM 

Integer* 4 

lnteger*4 

two  arguments) 

Remainder 

rr          2 

MOD 

AMOD 

Real 

Real 

DMOD 

Double 

Double 

ai-aj*[a,/aj] 

IMOD 

Integer '2 

Integer* 2 

(returns  the  remainder 

.    .  ■       ,  '• 

;-;    V    .- 

JMOD 

Integer* 4 

lnteger*4 

when  the  first  argument 

>~  ■'  '  -:'-^  I 

is  divided  by  the  second) 

Transfer  of  Sign 

2 

SIGN 

SIGN 

Real 

Reali 

.,,V-;.V;.,;.       - 

DSIGN 

Double 

Double 

la,l*Sign  a^ 

IISIGN 

Integer* 2 

lntegcr*2 

'.. ■i.:.'L;.-^.  ..-.-■^-4 .,  .-- .  . 

_ 

JISIGN 

Integer "4 

Integer* 4 

ISIGN 

IISIGN 

Integer* 2 

Integer* 2 

JISIGN 

Integer* 4 

Integer* 4 

(Continued  on  next  page) 
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Table  B-3  (Cont. ) 
Generic  and  Processor-Defined  Functions 


Functions 

Number  of 
Arguments 

Generic 
Name 

PDF 
Name 

Type  of 
Argument 

Type  of 
Result 

Bitwise  AND 

(performs  a  logical  AND  on 

corresponding  bits) 

2 

lAND 

HAND 
JIAND 

Integer* 2 
Integer* 4 

Integer* 2 
lnteger*4 

Bitwise  OR 

(performs  an  inclusive  OR  on 

corresponding  bits) 

2 

lOR 

NOR 
JIOR 

Integer* 2 
lnteger*4 

Integer*  2 
Integer* 4 

Bitwise  Exclusive  OR 
(performs  an  exclusive  OR  on 
corresponding  bits) 

2 

lEOR 

IIEOR 
JIEOR 

lnteger*2 
Integer* 4 

Integer* 2 
Integer* 4 

Bitwise  Complement 
(complements  each  bit) 

1 

NOT 

INOT 
JNOT 

Integer* 2 
Integer*  4 

Integer* 2 
Integer* 4 

Bitwise  Shift 

(a,  logically  shifted  left 
Bj  bits) 

2 

ISHFT 

IISHFT 
JISHFT 

Integer* 2 
Integer* 4 

Integer* 2 
Integer "4 

Random  number' 
(returns  the  next  number 
from  a  sequence  of  pseudo- 
random numbers  of  uniform 
distribution  over  th«  range 
Otol) 

1 

— 

RAN 

Integer "4 

Real 

2 

— 

RAN 

lnteger*2 

Real 
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Notes  for  Tables  B  2  and  B  3 
'    The  absolute  value  of  a  complex  number,  (X,Y),  is  the  real  value: 
(X=+Y-)'  = 

■    Functions  that  cause  ronverison  of  one  data  type  to  another  type  provide  the  same  effect  as  the 
implied  conversion  in  assignment  statements.  The  function  SNGL  with  a  real  argument  and  the  func 
tion  DBLE  with  a  double  precision  argument  return  the  value  of  the  argument  without  conversion. 

'    [x!  is  defined  as  the  largest  integer  whose  magnitude  does  not  exceed  the  magnitude  of  X  a     * 
whose  sign  is  the  same  as  that  of  x.  For  example  15.7)  equals  5.  and  [  5.71  equals   5. 

■»    Theargument  of  ALOG,  DLOG,  ALOG10,  and  D LOG  10  must  be  greater  than  0.  The  argument 
of  CLOG  must  not  be  (0.,0.). 

'    The  argument  of  SORT  and  DSQRT  must  be  greater  than  or  equal  to  0.  The  result  of  CSQRT 
is  the  principal  value  with  the  real  part  greater  than  or  equal  to  0.  When  the  real  part  is  0,  the 
result  is  the  principal  value  with  the  imaginary  part  greater  than  or  equal  to  0. 

"    The  argument  of  SIN,  DSIN,  COS,  DCOS,  TAN,  and  DTAN  must  be  in  radians.  The  argument 
is  treated  modulo  2*pi. 

^    The  result  of  ASIN,  DASIN,  ACQS,  DACOS,  ATAN,  DATAN,  ATAN2,  and  DATAN2  is  in 
radians. 

•*    The  result  of  ATAN2  and  DATAN2  is  0  or  positive  when  a;  is  less  than  or  equal  to  0.  The 
result  is  undefined  if  both  arguments  are  0. 

"    The  argument  for  this  function  must  be  an  integer  variable  or  integer  array  element.  The 
argument  should  initially  be  set  to  0.  The  RAN  function  stores  a  value  in  the  argument  that 
it  later  uses  to  calculate  the  next  random  number.  Resetting  the  argument  to  0  regenerates  the 
sequence.  Alternate  starting  values  generate  different  random  number  sequences. 

'»  The  absolute  value  of  the  argument  of  ASIN,  DASIN,  ACOS,  and  DACOS  must  be  less  than  or 
equal  to  1. 


# 


B-2G 


# 

INDEX 

A 

Arithmetic  (Cont.), 
elements,  2-15,  2-16 

A  field  descriptor,  8-10  to  b  11 

f      expression,  2-15,  2-18,  2-19, 

8-18 

6-5 

Absolute  value  of  integer 

IF  statement,  4-4 

constant,  2-5 

operators,  2-15,  2-16,  B-1 

ACCEPT  statement,  B-2,  B-12, 

Arithmetic/logical  assignment. 

B-13 

B-2 

formatted  sequential,  7-12 

Array,  2-2,  2-12 

list-directed,  7-14. 

adjustable,  2-15,  6-3  to  6-4 

See  also  Input 

data  type  of  an,  2-14 

ACCESS  keyword,  9-2,  9-3,  9-5 

dimensions  in,  5-3  to  5-4 

to  9-6 

uncubscr ipted ,  2-15,  4-10, 

Access  modes,  7-3 

5-14 

_             direct,  7-4 

Array  declarator,  2-12,  5-3  to 

^^            keyed,  7-4 

5-4 

^^^            sequential,  7-4 

Array  elements,  2-1,  2-11 

Access,  shared,  9-13 

and  DATA  statements,  5-14  to 

Actual  arguments,  2-10,  6-1  to 

5-15 

6-2,  6-3,  6-11 

transmitting,  7-9 

Actual  record  length,  9-2,  9-4, 

Array  format  specifications, 

9-11  to  9-12 

8-24 

Addition,  2-16 

makinq  equivalent,  5-10  to 

Adjustable  arrays,  2-15,  6-3  to 

5-12 

6-4 

multidimensional,  2-11,  7-11 

All-blank  field,  8-3,  8-5,  8-10 

Array  references,  2-13,  2-15, 

^^          Allocation,  2-4 

7-10 

^^ft          Allocating  storage  elements, 

run-time  formats  in,  8-22 

^              5-4 

Array  size,  dummy,  6-3 

All-zero  statement  label,  1-7 

Array  storage,  2-14 

Alphanumeric  literals,  2-9 

ASCII 

American  National  Standard 

character  set,  A-2 

FORTRAN  X3. 9-1966,  1-1 

characters,  2-9,  8-24 

.AND. ,  2-21 

null  character,  9-10 

Angle  brackets,  8-18 

octal  equivalents  of  Radix-50 

Apostrophe  character,  2-9, 

characters,  A-2 

7^-17,  8-12 

ASSIGN  statement,  2-3  to  3-4, 

'APPEND'  ACCESS  value,  9-3,  9-5 

4-3,  B-3 

A                 ^-^ 

Assigned  GO  TO  statement,  4-3 

^^^          Appended  spaces,  2-10 

Assigning 

Area,  1-byte  storage,  2-4 

initial  values  in  common 

Argument  list,  4-10 

blocks,  5-16 

Arguments 

L0GICAL*1  elements  to 

actual,  2-10,  6-1  to  6-2,  6-3 

,          COMMON,  5-5 

6-11 

storage  locations,  5-10 

associating  dummy  and 

symbolic  program  name,  5-16 

actual,  6-1  to  6-2 

values,  3-1 

in  the  CALL  statement,  4-10 

values  to  list  elements,  7-9 

defined,  2-10 

values  to  variables  arrays. 

dummy,  2-10,  4-10,  6-1  to 

and  array  elements,  5-14 

6-4,  6-10  to  6-11,  8-1 

Assignment,  arithmetic/logical, 

« 

function  references  used  as. 

B-2 

5-13 

Assignment  operator,  2-9 

integer  dummy,  2-21 

Assignment  statements,  3-1  to 

subprogram,  6-1  to  6-4 

3-4 

values,  dummy,  6-3 

Associated  variables,  2-10,  9-19 

^^          Arithmetic 

ASSOCIATEVARIABLE  keyword,  9-2, 

^^^            assignment  statement,  3-1 

9-3,  9-6 
Index-1 

INDEX 


Associating  dummy  and  actual 

arguments,  6-1 
Asterisk  (*),    1-4,  1-9,  5-13, 

7-5,  8-3,  8-4 
Attribute  specifications,  9- 
Auxiliary  I/O  statement,  9-1 


9-1 


B 

BACKSPACE  statement, 

to  9-16,  B-3 
Base  elements,  2-17 
Basic  component,  2-1 
Basic  real  constant. 
Binary  data,  7-1 
Binary  operator,  2-9 
Blank.  See  Space  cha 
Blank  common  block, 
boundaries,  crossi 
9-10 
Block,  common,  2-2, 
See  also  Common  bl 
data  subprograms, 
size,  physical ,  9- 
BLOCK  DATA  statement 

5-17,  6-8 
BLOCKSIZE  keyword,  9 

9-6  to  9-7 
Blocks  of  storage,  5 
Bound 

dimensions,  2-15, 
lower,  2-13,  6-4 
upper,  2-12,  2-13, 
Boundary  allocation, 
Boundary,  even,  5-5 
Brackets,  angle,  1-4 
BUFFERCOUNT  keyword, 

9-7 
Bypassing  input  reco 
Byte  boundary,  odd. 
Byte,  zero,  9-10 


9-1,  9-15 


2-6 

,  2-16 
racter 
5-4  to  5-5 
ng  disk, 

5-4,  6-3. 

ocks 

2-2 

7 

,  5-16  to 

-2,  9-3, 

-4 

6-4 

6-4 

byte,  5-9 

,  8-18 
9-2,  9-3, 

rds,  8-20 
5-9 


C  (letter),  1-3,  1-6 
CALL  statement,  4-11,  5-13,  6-4, 
6-9,  B-3 

discussion  of,  4-10 
Carriage  control  character,  8-19 

to  8-20,  8-25,  9-7 
CARRIAGECONTROL  keyword,  9-2, 

9-3,  9-7 
Character  count,  2-8 
Character  set 

ASCII,  A-2 

FORTRAN,  1-3,  A-1 

RADIX-50,  A-3 
Characters 

apostrophe,  2-9 

ASCII,  12-9 


8-14,  8-20 
transfer  red , 


the  external 


Characters  (Cont.), 

carriage  control,  8-12,  8-19 

to  8-20,  8-25 
colon  ( : ) ,  8-15 
dol lar  sign  ($) , 
number  of,  to  be 

8-14 
position  72,  1-8 
position  of,  in 

record,  8-13 
printable,  1-4 ,  A-1 
space,  1-7 
special,  1-4 
tab,  1-6 
character-per-column 

formatting,  1-5,  1-6 
maximum  number  stored,  8-11 
Classes  of  symbolic  names,  2-2 
CLOSE  statement,  9-1,  9-14, 

B-4 
Coding  form,  FORTRAN,  1-5 
Colon  (:)  descriptor,  8-15 
Column 

number,  2-11 
one  through  72,  1-7 
seventy-three  through  80, 
1-8 
Commas,  7-15 

as  a  field  separator, 
8-21,  8-25 
Comments,  1-3,  1-7 
indicator,  1-7 
line,  1-8,  1-9 
Common  blocks,  2-2 
6-3 
assigning  L0GICAL*1  elements 

to  5-5 
blank,  5-4,  5-5 
EQUIVALENCE  and,  5-12 
extending,  5-12 
initial  values  in,  5-16 
COMMON  statement,  2-'.0,  2-11, 

5-4  to  5-6,  B-4 
Complex  constant,  2-7  to  2-8, 

7-15 
Complex  data  editing,  8-15 
Complex  data  type,  2-3,  2-4, 

2-18 
Complex  operations,  2  19 
Complex  value,  8-15 
C0MPLEX*8,  2-4 
Components,  FORTRAN  statement, 

2-1 
Computed  GO  TO  statement,  4-2  to 

4-3 
Conditional  statement  execution, 

4-5 
Constant,  2-4,  7-15 

absolute  value  of  an  integer, 
2-5 


i-20. 


5-4  to  5-5, 


Index-2 


INDEX 

^^^        Constant  (Cont.), 

Data  (Cont. ) , 

^^           complex  2-7  to  2-8,  7-15 

editing  between  internal  and 

double  precision,  2-7 

external  form,  7-1 

Hollerith,  2-8 

editing  complex,  8-15 

input,  7-15 

format  for  input  and  output. 

integer,  2-5 

8-1 

logical,  2-3,  7-15 

integer,  2-11 

magnitude  of  a  real,  2-6 

logical,  2-16 

negative  double  precision. 

magnitude,  and  G    formats,  8-9 

2-7 

rounding  numeric,  7-14 

negative  integer,  2-5 

transfer,  7-2,  7-12  to  7-27, 

positive  integer,  2-5 

8-2 

real,  2-6 

transmission,  7-2 

truncated,  2-10 

Data  statement,  2--9  to  2-11,  5-1, 

values,  7-15,  7-16 

5-14  to  5-13 

Constants,  2-1 

Data  type,  2-3,  2-9  to  2-11, 

and  DATA  statement,  5-14  to 

2-18,  6-2,  7-18 

5-15 

of  an  arithmetic  expression. 

^■|           octal,  2-5 

2-18 

^^^           parameter,  2-2 

of  an  array,  2-14 

repetition  of,  7-1" 

complex,  2-3,  2-7 

symbolic  names  as,  5-15 

declaration  statement,  5-2  to 

Contiguous  storage  locations. 

5-3 

2-11,  5-4 

default  rules,  5-2 

Continuation 

double  precision,  2-3,  2-7 

field,  1-7 

by  implication,  2-11 

indicator,  1-5  to  1-7 

integer,  2-3,  2-5 

lines,  1-3,  1-7,  1-9 

length  specifier,  2-3 

CONTINUE  statement,  4-9  to  4-10, 

of  the  list  elements,  7-15 

^^             B-4 

logical,  2-3,  2-8 

^^A         Control 

rank  of,  2-18 

^^           carriage,  8-19  to  8-20,  8-25 

real,  2-3,  2-6 

DO  iteration,  4-7 

specifications,  2-11,  5-2  to 

format,  8-23  to  8-24 

5-3 

in  DO  loops,  4-8  to  4-9 

storage  requirements,  2-4 

Control  statements,  4-1  to  4-12 

of  symbolic  names  as  constants. 

Control  transfer  methods,  4-1, 

5-15  to  5-16 

4-4  to  4-5,  6-5 

Debugging  statement,  1-2,  1-7 

Control  variable,  4-6,  7-11 

Decimal  point,  8-25 

Conversion, 

scale  factor  and,  8-15  to  8-17 

double  precision,  2-18 
M^^                           rules  for  assignment  state- 

Declaration,  explicit  type,  2-11 
Declaration  statements,  type. 

^^V             ments,  3-2 

5-2  to  5-3 
Declarator 

^^         Count 

character,  2-8 

adjustable  array,  6-3 

group  repeat,  8-18,  8-24 

array,  2-12,  5-4,  5-6 

dimension,  2-12  to  2-13 

iteration,  4-7 

DECODE  statement,  7-26  to  7-27, 

repeat,  8-1 

B-4 
Default  allocations  for  data 

Crossing  disk  block  boundaries. 

9-10 

types,  2-4 

D 

Default  data  names,  5-2 

Default  field  descriptors,  8-18 

D  (letter),  1-7,  2-7 

DEFINE  FILE  statement,  9-1, 

D  exponent  field  indicator,  8-6 

9-18  to  9-19,  B-4 

8-25 

Defined  variable,  2-10 

D  field  descriptor,  8-2,  8-7  to 

'DELETb;'  DISPOSE  value,  9-7 

8-8,  8-16 

to  9-8 

Data 

DELETE  statement,  9-1,  9-16 

alphanumeric,  transmission  of 

,       direct,  9-17 

^^             8-12 

sequential,  9-17 

Index-3 

INDEX 


Delimiting  periods,  2-8,  2-19, 

2-20 
Descriptor 

:  (colon),  8-15 
$  (dollar),  8-14 
field,  8-2  to  8-18 
Dimension 

adjustable,  6-3 
in  an  array,  5-4 
declarator,  2-12  to  2-13 
variable,  2-15,  6-3 
Dimension  statement,  5-3  to  5- 
B-5 


7-4 

5-27,  7-1, 


9-8, 


7-20 
9-19 


to  7-21 
to  7-22 


9-3,  9-5, 


Direct  access, 
files,  5-25, 
9-10,  9-18 
I/O 

formatted , 
statement, 
unformatted,  7-21 
READ  statement, 
formatted,  7-20 
unformatted,  7-21 
WRITE  statement, 
formatted,  7-20 
unformatted,  7-22 
'DIRECT'  ACCESS  value, 

9-6 
Direct  DELETE  statement,  9-17 
Disconnecting  a  file,  9-14 
DISPOSE  (DISP)  keyword,  9-3,  9-7 

to  9-8 
Disposition,  file  default,  9-7 
Division,  2-16 

DO  iteration  control,  4-7  to  4-8 
DO  list,  implied,  7-10  to  7-11 
loop,  4-5  to  4-9,  6-11,  7-10 
range,  executions  of  the,  4-6 
statement,  4-5  to  4-6,  7-10, 
B-6 
Dollar  sign  ($),  8-14,  8-20 
Double  precision,  2-3,  2-4, 
2-17,  2-18,  8-8 
constant,  2-7 
conversion,  2-18 
negative  constant,  2-7 
operations,  2-19 
Dummy  arguments,  2-10,  4-10,  5-9, 
6-1  to  6-4 
association  with  actual 

arguments,  6-1 
in  an  ENTRY  statement,  6-10  to 

6-11 
integer,  6-3 
values,  6-3 
Dummy  array  size,  6-3 


E  field  descriptor,  8-2,  8-6  to 
8-7,  8-16 


DO 
DO 
DO 


7-8 
■8, 

5-6 
.8, 


Editing,  complex  data,  8-15 
Editor,  using  a  text,  1-7 
Elements 

arithmetic,  2-15,  2-16 
array,  2-1,  2-11. 

See  also  Array  elements 
assigning  values  to  list,  7-9 
base,  2-17 

of  a  FORTRAN  program,  1-3 
logical,  2-20 
Embedded  spaces,  8-2 
ENCODE  statement,  7-26  to  7-27 
End-of-f ile 

condition,  7-4,  7-8 
record,  7-8,  9-18 
transfer  of  control  on, 
END=  specification,  1-2,  7- 

B-7 
END  statement,  1-3,  4-12,  B 
ENDFILE  statement,  9-1,  9-1 

B-6 
ENTRY  statement,  1-2,  6-4, 
to  6-12,  B-7 
in  function  subprogram,  6 
in  subroutine  subprogram, 
to  6-12 
.EQ.,  2-19 
Equal  sign,  3-1 
EQUIVALENCE  statements,  2-10, 

5-9  to  5-12,  B-7 
.EQV.,  2-20 
ERR  keyword,  9-3,  9-8 
ERR=  specification,  1-2, 

9-8,  B-6,  B-7 
Error  condition,  7-8,  9-8 
Evaluation  of  operators,  2- 
Evaluation  order,  2-17 
Even  byte  boundary,  5-5 
Exclamation  point,  1-2,  1-4 
Executable  program,  1-3,  5-4, 

5-5 
Executable  statements,  1-3,  5-16 
Execution 

of  a  ccTditional  statement, 

4-4  to  4-5 
of  the  DO  range,  4-6 
of  a  formatted  I/O  statem 
8-23 


6-10 

-11 
6-11 


7-8, 


•21 


ent, 
of  statement,  4-11 
2-11 


declara  tion , 
i-5 


termination 
to  4-12 

Explicit  type 
Exponent,  2-7, 

in  an  external  field,  8-2 
Exponent  field  indicator,  8 

8-7 
Exponentiation,  2-16  to  2-1 
Expressions,  5-4 

arithmetic,  2-15,  6-5 

complex,  2-19 

defined,  2-1,  2-15 


5 
-6, 

7 
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Express! 

in  I/O 

logica 

mixed- 

relati 

in  sta 

subscr 

va  r  iab 

Expressi 

Extended 

Extend  in 

Extend  in 

extends: 

9-8 

External 

const r 

proced 

sepa  ra 

EXTERNAL 

6-13 


ons  (Cont . ) , 

list,  7-9 
1,  2-15,  2-20,  6-5 
mode,  1-1 
onal,  2-15,  2-19 
tement  functions,  6-5 
ipt,  2-13,  5-4 
le  format,  8-18  to  8-19 
on  operators,  B-1 

range,  DO  loop,  4-9 
g  a  file,  9-8 
g  the  common  block,  5-12 
ZE  keyword,  9-2,  9-3, 


field 
ucting,  8-24  to  8-25 
ure  names,  5-12 
tors,  8-21  to  8-22,  8-25 

statement,  5-12  to  5-13, 
,  B-7 


F  field  descriptor,  8-2,  8-5 

8-6,  8-16 
Factor,  scale,  8-15  to  8-17, 
.FALSE. ,  2-8 
Field 

all-blank,  8-3,  8-5,  8-10 
continuation,  1-7 
external,  8-24  to  8-25 

3-25 


to 
8-25 


external,  a-z^    to  h-z'd 
fractional  part  of,  8-25 
null  (zero-length),  8-21, 
separators,  external,  8-1, 

to  8-22,  8-25 
sequence  number,  1-f 

cf-At-omonh     1  —  8 


8-25 
8-21 


statement,  1-8 
statement  label,  1-7 
termination,  short,  i 
Field  descriptors,  8-2 


etmifidtion,     biiuru. 
Id    descriptors,    8-; 
8-23    to    8-25 
A,    8-10    to    8-11 
"       8-7    to    8-8 
8-6    to    8-7 


-21 

to  8-18, 


D, 
E, 
F, 
G, 
H, 
I, 
L, 
0, 
Q, 
T, 
X, 


8-5  to  8-6 
8-9 

8-4 

d-5 


8-8  to 
8-12 
8-3  to 
8-10 
8-4  to 
8-14 
8-13 
8-12 
general 
8-25 
Field  width 


to  8-13 

rules  for,  8-24  to 


eld  width 
default  values,  8-18 
specification,  8-24,  8-25 
le.   7-2 


5P 
File,   7-2 
access  to 


7-3 


File  (Cont. ) , 

attributes  of,  9-1 

indexed  organization,  7-3 

relative  organization,  7-3 

sequential  organization,  7-2 
Filling  array  elements,  5-14 
FIND  statement,  9-1,  9-16,  B-7 
First  character  of  a  record, 

output,  8-19,  8-25 
Fixed-length  records,  9-19 
'FIXED'  RECORDTYPE  value,  9-4, 

9-12 
Form 

FORTRAN  coding  1-5 

*n,  2-3 

r*,  7-15 

r*c,  7-15 

readable  character,  7-1 
FORM  keyword,  9-2,  9-3,  9-8 


variable,  8-18  to 


Format 

express  ion , 

8-19 
G , effect  of  da  ta 

magnitude  on,  8-9 
reversion,  8-16,  8-23,  8-24 
rules  for,  summarized,  8-24 

to  8-25 
run-time,  8-22 
Format  control,  8-23  to  8-24 
Format  separators,  8-1,  8-20  to 

8-21 
Format  specifiers,  7-1,  7-2,  7-5 
FORMAT  statement,  7-1,  8-1  to 

8-26,  B-8 
Format,  summary  of  codes,  8-26 
'FORMATTED'  FORM  value,  9-3, 

9-8 
Formatted  I/O.  See  Input;  Output 
'FORTRAN'  CARRIAGECONTROL  value, 

9-3,  9-7 
FORTRAN  character  set,  1-4,  A-1 
FORTRAN  language  summary,  B-1 
FORTRAN  library  functions,  6-12 
to  6-13,  B-19  to  B-28. 
See  also  Processor-defined 
functions 
FORTRAN 
1-8 
FORTRAN 
1-4 
FORTRAN  X3. 9-1966,  American 

National  standard,  1-1 
Four-byte  allocation,  2-4 
Fractional  part  of  the  field, 

8-25 
Function 

entry  name  and  function 

subprogram,  6-11 
file  positioning,  9-1 
name,  generic  use  of,  6-13 


line  formatting,  1-4  to 
program  elements,  1-3, 


Index-5 


INDEX 


Function  (Cont.), 

name  summary,  generic,  6-14 
Function  reference,  2-1,  4-11, 
6-5.  See  also  Generic 
function 
processor-defined,  6-13 
statement,  6-6,  6-7 
used  as  arguments,  5-13 
FUNCTION  statement,  6-5,  6-7  to 

6-8,  B-8 
FUNCTION  subprogram,  2-2,  4-11, 
6-7  to  6-8 
ENTRY  in,  6-11 
Functions 

FORTRAN  library,  6-12  to  6-16, 
B-19  to  B-20.  See  also 

Processor-defined  functions 
generic  FORTRAN,  6-13 
nongeneric  FORTRAN,  6-14 
statement,  6-5,  B-2 


G  field  descriptoi",  8-2,  8-8  to 

8-9,  8-16 
G  formats,  effect  of  data 

magnitude  on,  8-9 
.GE.,  2-19 
Generic  function,  6-13  to  6-14, 

6-15 
GO  TO  statement;  4-1  to  4-3,  B-7, 

B~9 
Group  repeat  count.  8-18,  8-24 
.GT.  ,  .  -19 

H 

H  (letter),  2-8 

H  field  descriptor,  8-12,  8-18 

Hollerith  constants,  1-2,  2-3, 

2-8  to  2-10,  7-15,  8-2 
data  type  rules  for,  2-9  to 

2-10 
Hollerith  data,  5-15,  8-10 

I 

I  field  descriptor,  8-3  to  8-4 
I/O.  See  Input/Output 
IF  statement,  4-4  to  4-5,  B-9 
Imaginary  numbers,  2-3,  2-7 
Implication,  data  type  by,  2-11. 

See  also  Data  type 
Implicit  logical  unit,  7-1 

number,  7-4 
IMPLICIT  statements,  2-10,  2-11, 

5-2,  B-9 
Ii.. plied  DO  lists,  7-10  to  7-11 
INCLUDE  statement,  1-2,  1-9, 
B-10 


Increment  parameter,  4-6 
Indexed  organization  file,  7-3 
'INDEXED'  ORGANIZATION  value, 

9-4,  9-11 
Indicator,  1-7 
Initial  parameter,  4-6 
Initial  space  allocation,  9-9 
INITIALSIZE  keyword,  9-2,  9--3, 

9-9 
Inner  loop ,  4-8 . 
See  also  DO  loop 

Input,  7-1 

constant,  7-15 
field,  external,  8-25 
format  statement  rules,  8-25 
statements,  2-10,  7-1 

formatted  direct  access, 

7-20 
formatted  keyed,  7-23 
formatted  sequential,  7-11 

to  7-13 
list-directed,  7-14  to  7-16 
unformatted  direct  access, 

7-21  to  7-22 
unformatted  keyed,  7-25 
unformatted  sequential,  7-18 
to  7-19. 

See  also  READ  statement;  ACCEPT 
statement 
Input/output 

devices,  7-4 

keyed,  7-23 

lists,  7-9 

format  control  inter- 
action with,  8-23  to  8-24 

sequential,  7-11 

statement  components,  7-4  to 
7-11. 

See  also  Input;  Output 
Integer,  2-3,  2-4,  2-16 
COPS  ^nt,  2-5, 

aLov''ute  value  of  an,  2-5 

negative,  2-5 

unsigned,  8-24 
data,  2-11 

rules  for,  8--3 
and  logical  operator,  2-21 
variables,  2-11,  6-3 

Integer  operations,  2-18 
INTEGER*2,  2-4 

data    tyj:  ?  ,    2-5 
INTEGER*4,    2-4 

data  type,  2-5 
Internal  representation,  2-21, 

7-1 
Iteration 

DO  iteration  con'.rol,  4-7 

Newton-Raphsun  method,  6-8 
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INDEX 


K 


'KEEP'  DISPOSE  value,  9-3,  9-7, 

9-8 
KEY,  7-25 
Key  expressions,  7-4,  7-6  to  7-7 

fields,  7-5  to  7-6,  7-26 


Key 
KEY 


9-1,  9-3,  9-9  to 


keyword , 

9-10 
Key  specifiers,  7-5  to  7-6 
Key  values,  7-6,  7-7,  7-,.5 
Keyed  access,  7-4 
'KEYED'  ACCESS  value,  9-3, 

9-6 
Keyed  input,  formatted,  7-23 

7-24 
Keyed  input/output,  7-23 
Keyed  input,  unformatted,  7-25 
Keyed  output,  formatted,  7-24 

unformatted,  7-25 


9-5, 


to 


Keyed 

out 

-put. 

to 

7- 

■26 

KEYEQ, 

7- 

-25 

KEYGE, 

7- 

-25 

KEYGT, 

7- 

-25 

KEYID, 

7- 

-25 

Key-of-ref erence ,  7-7,  7-25 
Keywords  in  the  OPEN  statement, 
9-1  to  9-14 


L  field  descriptor,  8-10 
Label,  statement,  1-4,  6-9 
field,  ^-7 
list,  1-2 
reference,  3-4 
Language  summary,  FORTRAN,  B-1 
.LE.,  2-19 

Leading  spaces,  8-2,  8-6 
Left  angle  bracket,  1-4 
Length  specifier,  data  type, 

2-3,  5-3 
Letters,  lower  and  upper  case, 

1-4 
Library  functions,  FORTRAN, 

6-12  to  6-16,  B-19  to  B-20. 
See  also  Processor-defined 
functions 
Line,  1-3 

comment  line,  1--8 
continuation  line,  1-3.  1-7, 

1-9 
formatting  a  FORTRAN,  1-5, 
1-6 


/List,  1-9 
List 

argument , 

elements, 
7-9 

implied  DO,  7-10 


4-10 

assigning  values  to, 


List  (Cont . ) , 

I/O,  7-9,  8-23  to  8-24 
simple  I/O,  7-9  to  7-10 
statement  label,  1-2 
'LIST'  CARRIAGECONTROL  value, 

9-3,  9-7 
List-directed  I/O.  See  Input; 

Output 
^i st-d i rected  output  formats 

(table),  7-17 
Literals,  alphanumeric. 

See  Alphanum.er  ic  literals 
Locations.  See  Storage 
Logical  assignment  statement, 

3-3 
Logical  constant,  2-8,  7-15 
Logical  data 

transfer  of,  8-10 
type,  2-3,  2-16,  2-19,  3-3 
Logical  elements,  2-20 
Logical  expressions,  2-15,  2-20, 

4-5 
Logical  operators,  2-20  to  2-21, 

B-1  to  B-2 
Logical  record  length,  9-11 
Logical  unit,  7-2 
Logical  values,  2-15,  2-20,  3-3 
L0GICAL*1,  2-4 
array,  5-6,  5-9 
array  element  storage,  2-14 
elements,  assigning  to 
COMMON,  5-5 
L0GICAL*2,  2-4 
L0GICAL*4,  2-4 
Loop.  See  DO  loop 
Lower  bound,  2-13,  6-4 

dimension  declarator,  2-13 
equivalencing  arrays  with 
nonun  i  ty ,  5-11 
Lower  case  letter,  1-4 
.LT.,  2-19 

M 

Main  program,  1-3,  2-2 
RETURN  and,  4-11 
terminating,  4-12 

Match  criterion,  7-7 
Maximum  Radix-50  value,  A-3 
MAXREC  keywora,  9-1,  9-4,  9--10 
Memory  requvremunts  tor  uata 
types,  2-4 

Mi  nus,  unary ,  2-16 
Mixed-mode  expressions,  l-l 
Multibuf f ered  I/O,  9-7 
Multidimensional  arrays, 

proctssi ng ,  7-11 
Multiple  entry  points  within 

a  subprogram,  6-10 
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Multiple  functions  in  a 

function  subprogram,  6-12 
Mul tipl ice tion,  2-16 


N 


*n,  2-3 


NAME  keyword,  9-2,  9-4,  9-10 
Named  common  block,  5-5,  5-6 
Names 

common  block,  5-4  to  5-6 
external  procedure,  5-12 
generic  function,  6-13  to  6-14 
giving  to  constants,  symbolic, 

5-15 
summary  of  generic  function, 

6-14 
symbolic,  2-1,  2-2,  2-10,  2-11 
.NE.,  2-19 

Negative  constants,  2-5,  2-7 
Nested  DO  loops,  4-8 
'NEW  TYPE  value,  9-4,  9-13 
Newton-Raphson  iteration  method, 

6-8 
/NOLIST,  1-9 
'NONE'  CARRIAGECONTROL  value, 

9-3,  9-7 
Nonexecutable  statements,  1-3, 

5-1 
Nongeneric  FORTRAN  functions, 

6-14 
Nonunity  lower  bounds,  5-11 
NOSPANBLOCKS  keyword,  9-2,  9-4, 

9-10 
.NOT.,  2-10 
Null 

character,  ASCII,  9-10 
record,  7-19 
value,  7-15 

values,  repetition  of,  9-15 
zero-length  field,  8-2,1,  8-25 
Number 

complex,  2-8 

as  dimensions  in  arrays,  2-11 
implicit  logical  unit,  7-1 
logical  unit,  7-1 
of  blocks,  9-8 
statement,  1-7 
Numeric  data,  rounding,  7-14 
Numeric  value,  2-15 


0  field  descriptor,  8-4  to  8-5 
Octal  integer  coiistant,  2-5 
Octal  values,  transfer  of,  8-4 
'OLD'  TYPE  value,  9-4,  9--li 
One-byte  storage  area,  2-4 
One  (1)  character,  8-20 
One-dimensional  array,  2-11 


OPEN  statement,  9-1  to  9-5,  B-10 
to  B-11 
examples,  9-5 
keywords,  9-2  to  9-14 
Operators 

arithmetic,  2-15,  B-1 
assignment,  2-9 
binary,  2-9,  2-16 
evaluation  of,  2-21 
exponentiation,  2-16 
expression,  B-1  to  B-2 
logical,  2-20  to  2-21,  B-1 

to  B-2 
precedence  of,  2-17 
relational,  2-19,  B-1 
role  of,  2-15 
unary,  2-16 
.OR.,  2-20 
Order  of  subscript  progression, 

2-14 
Ordering  rules,  statement,  1-8 
ORGANIZE  keyword,  9-2,  9-4,  9-10 

to  9-11 
Outer  loop,  4-8. 

See  also  DO  loop 
Output,  7-11 

formatted  direct  access,  7-20 

to  7-21 
formatted  keyed,  7-24 
formatted  sequential,  7-13  to 

7-14 
list-directed,  7-16  to  7-18 
unformatted  direct  access, 

7-22 
unformatted  keyed,  7-25  to 

7-26 
unformatted  sequential,  7-19. 
See  also  WRITE  statement; 
PRINT  statement;  REWRITE 
statement;  TYPE  statement 
Output  format  rules,  8-25 


Parameter 

constants,  2-2 

of  DO  statements.  4-6. 

See  also  Constants 
PARAMETER  statements,  1-2,  5-15 

to  5-16,  B-11 
Parentheses,  2-17,  2-19,  2-20, 

7-15,  8-1,  8-18 
PAUSE  statement,  4-11,  B-11 
Periods,  delimiting,  2-8,  2-19, 

2-20 
Physical  block  size,  9-7. 

See  also  Block 
Plus  (+)  character,  8-20 
Plus,  unary,  2-16 
Point,  decimal,  8-15  to  8-17,  8-25 
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9-3,  9-7 
B-16, 
.  7-13 


Positive  integer  constant,  2-5. 

See  also  Constant 
Precedence,  2-17,  2-20,  2-21 
Precision,  loss  of,  7-14, 
See  also  Data  type  storage 
requirements;  Double 
precision 
•PRINT'  DISPOSE  value, 

to  9-8 
PRINT  statement,  B-11, 
B-17 
formatted  sequential 
1 iet-di rected ,  7-16. 
See  also  Output 
Printing  characters,  1-4,  A-1 
Procedure,  computing,  1-3 
Procedure  names 
external,  5-12 

as  subprogram  arguments,  5-13 
Processing 

carriage  control,  9-7. 

See  also  Carriage  control; 
CARRIAGECONTROL  keyword 
iterative,  4-5 
multidimensional  arrays,  2-11, 

7-11 
ct   ination  of,  7-16 
Processor-defined  function,  2-2, 

6-13,  6-15 
Program 

elements  of  a  FORTRAN,  1-3 

executable,  1-3,  5-4,  5-5 

FORTRAN;  1-3 

main,  1-3,  2-2 

statement,  B-10 

terminating,  4-11  to  4-12 
Program  unit,  1-3,  3-4,  5-4, 
5-5,  6-7,  6-8, 

block  data,  5-16 

end  of,  4-1? 

structure,  1-8 
Progression,  order  of  subscript, 
2-14 


Q  field  descriptor,  8-14 


Radix-50,  A-2  to  A-3 
Rank,  data  type,  2-18 
READ  statement,  B-12  to  B-14 
formatted  direct  access,  7-20 
formatted  sequential,  7-11 
keyed,  7-23 
list-directed,  7-14 
unformaf-ed  direct  access, 

7-21 
unformatted  sequential,  7-18. 
See  also  Input 


6-9,  6-13 
to  5-17 


Read-only  file,  9-7 

READONLY  keyword,  9-2,  9-4,  9-11 

Real  data  type,  2-3,  2-4,  2-18 

Real  constant,  2-6  to  2-7 

REAL*4,  2-4 

REAL*8,  2-4 

Record,  7-2 

end  of  a,  7-16 

external,  character  position 

of,  8-13 
first  character  of  an  output, 

8-19,  8-25 
initiator,  8-20 
length  of,  9-12 
physical  end  of,  8-21 
size  of,  9-11 

spaces  at  beginning  of,  7-16 
terminator,  8-1,  8-20,  8-21 
transmitting.  See  Input; 

Output 
zero-filled,  7-22 
RECORDSIZE,  9-2,  9-4,  9-11  to 

9-12 
Reference 

array,  2-13,  2-15,  7-10 
function,  used  as  arguments, 

5-13 
processor-defined  function, 

6-13,  6-15 
statement  label,  3-4 
Reference,  function,  2-11,  6-5 
References,  generic  function, 

6-13  to  6-16 
Relational  expressions,  2-15, 

2-19  to  2-20 
Relational  operators,  2-19,  B-1 
'RELATIVE*  ORGANIZATION  value, 

9-4,  9-11 
Repeat  count,  8-1,  8-18,  8-24 
Repeat  specifications,  group, 

8-18,  8-24 
Representation,  internal,  2-21 

7-1 
Resuming  program  execution,  4-11 
RETURN  statement,  4-10  to  4-11, 

6-8,  6-9,  B-14 
Reversion,  format,  8-16,  8-23, 

8-24 
REWIND  statement,  9-1,  9-15, 

B-14 
REWRITE  statement,  B-15 
formatted  keyed,  7-24 
unformatted  keyed,  7-25. 
See  also  Output 
Right  angle  bracket,  1-4 
Rounding  numeric  data,  7-14,  8-6 
Rule,  I/O  list,  8-24 
Rules 

conversion  for  assignment 
statements,  3-2 
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Rules  (Cont. ) , 

for  format  statements,  summary, 

8-24  to  8-25 
statement  ordering,  1-8 
for  subprogram  arguments,  6-2 
to  6-3 
Run-time  formats,  8-22 


'SAVE'  DELETE  value,  9-3,  9-7 

to  9-8 
Scale  factor,  8-15  to  8-17,  8-25 
Scratch  file,  9-7 
'SCRATCH'  TYPE  value,  9-4,  9-13 
'SEGMENTED'  RECORDTYPE  value, 

9-4,  9-12 
Selection,  generic  function, 

6-13  to  6-14 
Separators 

external  field,  8-21  to  8-22, 

8-25 
field,  8-1 
format  specification,  8-20  to 

8-21 
slash,  7-15,  7-16 
Sequence  number  field,  1-8 
Sequential  access,  7-3 
Sequential  file,  7-2 
'SEQUENTIAL'  ACCESS  value,  9-3, 

9-5,  9-6 
Sequential  DELETE  statement, 

9-17 
Sequential  I/O.  See  Input; 

Output 
Sequer.tial  READ  statement,  7-11 

to  7-14,  7-18  to  7-19 
Sequential  WRITE  statement,  7-13 

to  7-14,  7-19 
Shared  access,  9-13 
SHARED  keyword,  9-2,  9-4,  9-13 
Sharing  storage  space,  5-10 
Short  field  termination,  8-21 
Signed  quantity,  2-5 
Simple  I/O  list,  7-9  to  7-10 
Sixteen-bit  signed  quantity, 
2-5 
Size,  dummy  array,  6-3 
Size,  specifying  the  physical 

block,  9-7 
Slash  (/) ,  7-15  to  7-16,  8-1, 
8-23 
consecutive,  8-20 
record  terminator,  8-20 
separator,  7-15 
Source  line,  4-12 
Space 

allocation,  initial,  9-9 
at  beginning  of  a  record, 
7-16 


Space  (Cont. ) , 
character,  8-20 
sharing  storage,  5-10 
Spaces,  7-15  to  7-16 
appended,  2-10 
leading,  8-2,  8-6 
trailing,  8-2 
Special  characters,  1-4 
Specification 
attribute,  9-1 
data  type,  2-11 
determining  field  width,  8-25 
END=,  1-2,  7-8,  B-7 
ERR=,  7-8,  9-8,  B-6,  B-7 
format,  8-1. 

See  also  Format 
statement 
separators,  format,  8-20  to 

8-21 
statements,  5-1  to  5-17 
statements  in  BLOCK  DATA 

program  units,  5-16  to  5-17 
Specifier,  data  type  length,  2-3 
Specifiers,  formats,  7-5 
Statement 

ACCEPT,  7-12,  7-14,  B-2,  B-12, 

B-13 
arithmetic  assignment,  3-1  to 

3-2 
ASSIGN,  3-4,  4-3,  B-3 
assigned  GO  TO,  4-3 
BACKSPACE,  9-1,  9-15  to  9-16, 

B-3 
BLOCK  DATA,  5-1,  5-16  to  5-17, 

B-3 
CALL,  4-10,  5-13,  6-4,  6-9, 

B-3 
CLOSE,  9-1,  9-14,  B-4 
COMMON,  2-10,  2-11,  5-4  to  5-6, 

5-11,  B-14 
computed  GO  TO,  4-2  to  4-3 
CONTINUE,  4-9  to  4-10,  B-4 
control,  4-1   o  4-12 
DATA,  2-10,  5-1,  5-14  to  5-15, 

B-4 
DECODE,  7-8,  7-9,  7-26  to 

7-27,  B-5 
DEFINE  FILE,  9-1,  9-18  to  9-19, 

B-5 
DELETE,  9-1,  9-16,  B-5 

direct,  9-17 

sequential,  9-17 
DIMENSION,  5-1,  5-3  to  5-4, 

B-5 
DO,  4-5  to  4-6,  B-6 
ENCODE,  7-8,  7-9,  7-26  to 

7-27,  B-6 
END,  1-3  4-12,  B-6 
ENDFILE,  9-1,  9-18,  B-6 
ENTRY,  1-2,  8-6,  B-7 
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Statement  (Cont.), 
"'■-"   2-10, 


;atement  (Con 
EQUIVALENCE, 

3-7 
EXTERNAL,  5-1,  5-12  to 

6-13,  B-7 


5-9  to 

5-13, 


5-12, 


FIND 

FORM, 

f o  rma  uuc 

FUNCTION,  6-5,  6 

B-8 

functions,  2-2,  6-5  to  6-7 
GO  TO,  4-1,  4-2  to  4-3,  B-8 

to  B-9 

B-9 


:ND,  9-1,  9-16,  B-7 
)RMAT,  8-1  to  8-26,  B-8 
)rmatted.  See  Input;  Output 
JNCTION,  6-5,  6-7  to  6-8, 

R-R 


IF,  4-4  to  4-5, 
IMPLICIT,  2-10,  2-11, 


B-9 
[NCLUDE 


5-2, 

B-10 
3-3 


5-3, 


INCLUDE,  1-2,  1-9,  B-10 
logical  assignment,  3-3 
logical  IF,  4-4,  4-5 
OPEN,  9-1  to  9-5,  B-10  to  B-11 
PARAMETER,  1-2,  5-1,  5-15  to 

5-16,  B-11 
PAUSE,  4-11,  B-11 


PAUSE,  4-11, 
PRINT,  7-13, 
B-17 


B-  .- 

7-16,  B-11, 


PROGRAM,  5-16,  B-11 
READ,  B-12  to  B-14. 

See  also  READ  statement; 


See 
Input 

IRN,  4-10  to  4-11,  6-8, 
•14 


RETURN, 
B-14 


6-9, 


See  also  WRITE  statement; 
Output 
;tatement  components,  FORTRAN, 

2-1,  7-4  to  7-11 
Itatement  execution,  conditional, 

4-5 


Statement 

4-5 
Statement  field,  1-8 
Statement  function,  6-5  to  6-7, 

B-2 

1-7,  4-3, 


S 
S 


B-2 
tatement  label,  1-4, 
6-9,  7-5 
all-zero,  1-7 
field,  1-7 
list,  1-2 
reference,  3-4 


Statement  number,  1-7 
Statement  ordering  rules,  1-8 
Statements,  1-3 
assignment,  3-1 
in  a  BLOCK  DATA  subprogram, 

5-16 
conversion  rules  for  assign- 
ment, 3-2 
establishing  arrays,  2-11 
executable,  1-3,  8-9 
format,  summary  of  rules,  8-24 

to  8-25 
nonexecutable,  1-3,  7-1 
specification,  5-1  to  5-17 
summary  of,  B-2  to  B-18 
type  declaration,  2-11,  5-2 
to  5-3 
Stop,  tab,  1-6 
Storage 

allocating  elements,  5-4 
area,  1-byte,  2-4 
array,  2-14,  7-11 
blocks,  5-4 
location,  5-9,  5-10 
locations,  contiguous,  2-11 
requirements,  data  type,  2-4 
space,  sharing,  5-10 
unit,  defined,  2-3 
units,  9-12 
Strings,  2-8 

Structure,  program  unit,  1-8 
Subprogram,  1-3,  2-15,  6-1 
actual  arguments,  6-1  to  6-4 
arguments 

rules  governing,  6-2  to   6-3 
using  procedure  name  as, 
5-13 
block  data,  2-2 
dummy  arguments,  6-1  to  6-4, 

6-6 
END  and,  4-12 
ENTRY  in,  6-10  to  6-12 
execution,  6-10 
EXTERNAL  in,  6-13 
function,  6-7  to  6-8 
FUNCTION  in,  4-11,  6-7  to  6-8 
multiple  entry  points  within, 

6-10 
multiple  functions  in  a 

function  subprogram,  6-12 
user-written,  6-4  to  6-5 
function,  2-2,  6-11 
statement,  6-5  to  6-7 
subroutine,  2-2,  4-10,  4-11, 

6-9  to  6-10. 
See  also  User-supplied 
subprograms;  System- 
supplied  subprograms 
virtual  array  referencing,  5-8 
ENTRY  in  function,  6-11 
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SUBROUriNE  statement,  6-9,  B-15 
SUBROUTINE  subprogram,  2-2,  4-10, 

4-11,  6-9  to  6-10 
Subscript  expressions,  2-13,  7-9 
Subscript  progression,  5-14,  7-9 
Subscript  order,  2-14 
Subtraction,  2-16 
Summary 

FORTRAN  language,  B-1  to  B-25 
generic  function  names,  6-14 
of  rules  for  format  statements, 

8-24  to  8-25 
of  statements,  B-2  to  B-18 
Suspending  program  execution, 

4-11 
Symbolic  name,  2-1,  2-2,  2-10, 
2-11 
as  constant,  5-15  to  5-16 
classes,  2-2 

defining  data  types  of,  5-2 
overriding  length  attributes 
of,  5-3 
System-supplied  subprograms, 
6-12. 
See  also  FORTRAN  library 
functions 


T  field  descriptor,  8-13 

TAB  character,  1-6 

Tab  as  a  value  separator,  7-15 

parameter,  4-6 
Terminal  statement,  4-8,  4-9 

of  a  DO  loop,  4-6 
Terminating  program  execution, 

4-12 
Termination  of  processing,  7-16 
Termination,  short  field,  8-21 
Terminator,  record,  8-1,  8-21 

slash  (/) ,  8-20 
Text  editor,  1-7 

32-bit  signed  quantity,  2-5 

three-dimensional  arrays,  2-11 
Trailing  spaces,  8-2 
Transfer  of  control,  6-5,  6-9, 
7-8. 

See  also  GO  TO  statements 
Transmitting  array  elements  by 

implied  DO  lists,  7-10 
Transmitting  records. 

See  Input;  Output 
True,  2-8,  2-19,  2-20 
.TRUE.,  2-8 

Truncated  constant,  2-10 
Two-dimensional  array,  2-11 
Type 

by  implication,  data,  2-11 

data.  See  Da"a  type 

declaration,   -plicit,  2-11 


Type  (Cont . ) , 

specification,  data,  2-11 
Type  declaration  statement,  2-11, 

5-2.  5-3,  B-15  to  B-16 
TYPE  keyword,  9-2,  9-4,  9-13 
TYPE  statement,  B-15,  B-16,  B-17 

to  B-18 

formatted  sequential,  7-13 

list-directed  7-16. 

See  also  Output 

u 

Unary  operators,  2-16 
Unconditional  GO  TO  statement, 

4-2 
•UNFORMATTED'  FORM  value,  9-3, 

9-8 
Unformatted  I/O.  See  Input;Output 
Unit 

logical,  5-1 

main  program,  5-16 
UNIT  keyword,  9-1,  9-4,  9-13 
•unknown'  type  value,  9-4,  9-13 
UNLOCK  statement,  9-1,  9-17  to 

9-18,  B-16 
Unsigned  constant,  2-5,  8-24 
Unsubscr ipted  array,  7-9 
Unsubscr ipted  array  name,  2-15, 

4-10,  5-14,  7-9 
Upper  bound,  2-12  to  2-13,  6-4 
Upper  case  letters,  1-4 
USEROPEN  keyword,  9-2,  9-4,  9-13 
User-supplied  subprograms,  5-13 
User-written  subprograms,  6-4 

to  6-12 


Value 

complex,  8-15 

constant,  7-15 

evaluating  magnitude  of,  8-5 

in  form  r*c,  7-15 

integer,  2-20 

null,  7-15 

of  the  variable,  2-10 

Radix--50  ,  A-2  to  A-3 
Value  separators,  7-15  to  7-16 
Values: 

assigning,  3-1 

assigning  to  variables  and 
array  elements,  5-14 

default  field  descriptor,  8-18 

dummy  argument,  6-3 

in  common  blocks,  assigning 
initial,  5-16 

logical,  2-15,  2-20,  3-3 

numeric,  2-15 
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Variable 

control,  4-6 

in  dimension  declarators,  6-3 
value  of  the,  2-10 
Variable  format  expression,  8-18 

to  8-19 
'VARIABLE'  RECORDTYPE  value, 

9-4,  9-12 
Variables,  2-1,  2-2,  2-10,  2-11 
assigning  values  to  array 

elements  and,  5-14 
associated,  2-10,  9-19 
integer,  2-11 
in  I/O  lists,  7-9 
maximum  number  of 
stored  in,  8-10 
real ,  2-11 
Virtual  array,  5-6 

references,  restrictions  on 
use  of,  5-7 
VIRTUAL  statement,  5-6  to  5-9, 
B-16 

w 

width  value,  field,  8-13 
Word  ooundary,  5-5 


characters 
to  8-11 


WRITE  statement,  B-16,  B-17 

formatted  direct  access,  7-20 

to  7-21 
formatted  keyed,  7-24 
formatted  sequential,  7-13  to 

7-14 
list-directed,  7-16  to  7-18 
unformatted  direct  access, 

7-22  to  7-23 
unformatted  keyed,  7-25  to  7-2G 
unformatted  sequential,  7-19. 
See  also  Output 


X  field  descriptor,  8-12  to  8-13 
.XOR.,  2-20 


Zero  byte,  9-10 

Zero  character,  8-20 

Zero  scale  factor,  reinstating, 

8-24 
Zero-filled  records,  7-22 
Zero-length  field  (null),  8-21, 

8-25 
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